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ABSTRACT: 


THIS DIAGNOSTIC IS DESIGNED TO TEST THE FUNCTIONS 
AND CAPABILITIES OF THE DTO7 UNIBUS SWITCH. THE DIAGNOSTIC 
IS DIVIDED INTO THREE MAJOR SECTIONS AS FOLLOWS: 
IS 


MONOPORT; THIS SECTION TESTS A SINGLE PORT WITHOUT INTER- 
ACTION WITH OTHER PORTS. 


MULTIPORT; THIS SECTION TESTS THE DTO7 PORT WITH THE OTHER 
PORTS IN THE SYSTEM. 


MANUAL INTERVENTION; THIS SECTION TESTS CERTAIN FUNCTIONS 
WHICH REQUIRE OPERATOR ASSISTANCE. 


NPR TEST; THIS TEST CHECKS OUT THE NPR LINE ON THE SWITCH BUS. 


SEQ 9002 
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2 .0 REQUIREMENTS: 

2.1 EQUIPMENT 
PDP 11-COMPUTER 
ASR-33 Hh Abn | OR EQUIVALENT 
DTO7 PORT MOD 


MANUAL ¢ CONTROL PANEL (OPTIONAL BUT NEEDED FOR MANUAL INTERVENTION TEST!) 
UBE <UNIBUS EXERCISER> (OPTIONAL BUT NEEDED FOR NPR TEST) 


2 of PROGRAM STORAGE 


PROGRAM REQUIRES 8 K WORDS OF MEMORY 


2 os SOF TWARE 
ABSOLUTE LOADER OR OTHER INPUT MEDIUM 


SEQ 0003 
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SWITCH REGISTER ASSIGNMENTS: 
$W08(1)=LOOP ON TEST IN SWR<7:0> 
$W08(0)=DO ALL TESTS IN SEQUENCE 
$W09(1)=LOOP ON ERROR 
SW09(0)=CONTINUE ON ERROR 
$W10(1)=BELL ON ERROR 

$W10(0)=NO BELL ON ERROR 
$W11(1)=INHIBIT_ITERATIONS 
$W11(0)=ALLOW ITERATIONS 
$W13(1)=INHIBIT ERROR TYPEOUTS 
$W13(0)=ALLOW ERROR TYPEOUTS 
$W14(1)=LOOP_ON TEST 
$W14(0)=DON'T LOOP ON TEST 
$W15(1)=HALT ON ERROR 
$W15(0)=CONTINUE ON ERROR 


COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A 
SOFTWARE SWITCH REGISTER LOCATED IN MEMORY AT LOCATION 
176 CALLED SWREG. THIS LOCATION CAN BE CHANGED EITHER 
MANUALLY OR BY TYPING THE CNTL+G KEYES TOGETHER 

THEN RESPONDING TO THE TERMINAL DIALOGUE. 


SEQ 0004 
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4.0 


LOADING PROCEDURE : 


Peuh ar URED PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IF THE PROGRAM RESIDES ON A MASS att DEVICE SUCH AS 
MAGTAPE OR DISK REFER TO THE XXDP USER'S GUIDE. 


SEQ 0005 
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5 .0 


5.1 


STARTING PROCEDURE : 


STARTING ADDRESSES 
200. INPUT PARAMETERS AND ALLOWS TEST SELECTION 


STARTING SEQUENCES 


STARTING SEQUENCE UNDER XXDP(CHAIN) ,APT OR ACT 
START AT ADDRESS 200 ONLY. (DEFAULT PARAMETERS) 
NORMAL STARTING SEQUENCE 
LOAD PROGRAM ACCORDING TO LOADING PROCEDURE 
LOAD AND START ADDRESS 200 
INPUT ACTUAL PARAMETERS AND SELECT TEST 
RESTART ADDRESSES 


RESTART ADDRESSES ARE THE SAME AS STARTING ADDRESSES 





SEQ 6006 
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6 .0 PRELIMINARY OPERATIONS: 


— 17:26 PAGE 7 


6 .1 DEVICE ADDRESSES AND VECTOR ADDRESSES 
THE STANDARD DEVICE ADDRESS 1S 177420. 
THE STANDARD DEVICE VECTOR ADDRESS IS 350. 
THE STANDARD DEVICE PRIORITY LEVEL IS 7. 


6 .2 DEVICE/OPTION SETUP 
INSURE THAT THE DTO7(S) ARE IN PROGRAMMABLE MODE. 
6 .3 PRELIMINARY PROGRAMS NEEDED 


NONE . 


SEQ 0007 
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7 .0 OPERATIONAL PROCEDURES: 


NORMAL OPERATION WOULD BE TO Ay: THIS PROGRAM, 
oe THAT. ALL DTO7 PORTS ARE IN THE PROGRAMMABLE MODE, 
RUN THE MONOPORT TEST ON EACH PORT IN THE SYSTEM, THEN 
RUN THE Rg TEST ON ALL PORTS i THE SYSTEM. 

IF YOU HAVE A MANUAL CONTROL PANEL IN_THE MANUAL INTER- 
attr” IF YOU HAVE UBE ON THE SWITCH BUS ,RUN THE 


THE PARAMETER _INPUT ROUTINE IS TO BE USED WHEN- 
EVER YOU WISH TO INPUT OR CHANGE DIAGNOSTIC PARAMETERS 
INCLUDING DEVICE oe VECTOR ADDRESS, INTERRUPT LEVEL, 
NUMBER AND I.D.#S OF OTHER PORTS TO BE TESTED. 
4s PARAMETER INPUT ROUTINE WILL BE ENTERED AUTOMATICALY 
OM THE MULTIPORT TEST IF NO PARAMETERS HAVE BEEN ENTERED 


PREVIOUSLY~ 

WHEN USING THE MULTIPORT SECTION, AFTER PARAMETERS 
HAVE BEEN ENTERED OR WHEN RESTARTING THE TEST, THE CPU 
WITH THE LOWEST NUMBERED DTO7 PORT MUST BE STARTED LAST. 
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8.3 
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8.5 


16-NOV-81 


ERRORS: 
MONOPORT SECTION ERRORS 


ALL ERRORS IN THE MONOPORT SECTION HAVE = GENERAL FORMAT; 
ERROR PC,TEST#,GOOD DATA,BAD DATA,BAD DATA ADDRESS. CONTROL 
OF ERROR PRINTOUT AND LOOPING IS BY THE SWITCH REGISTER OPTIONS. 


MULTIPORT SECTION ERRORS 


ERRORS IN THE MULTIPORT SECTION PRINT AN ERROR ID.#, A "aaet 
BRIEFLY DESCRIBING THE ERROR AND THE CSR CONTENTS. ALL ERRORS 

IN THIS SECTION ARE FATAL AND, THEREFORE, THE TEST MUST BE — 
ON ERROR. THERE IS NO ERROR LOOPING AND ERROR PRINTOUT I$ AUTO- 
MATIC. ERROR ID.#S_1A THRU 5A IDENTIFY ERRORS IN THE DT07 MODE 
MULTIPORT TEST AND EPR “7 ID.#S 6 THRU 16 IDENTIFY ERRORS IN THE 

DTO3 MODE MULTIPORT TEST 


MANUAL INTERVENTION SECTION ERRORS 


ERRORS - THIS SECTION PRINT AN ERROR ID.#, A BRIEF MESSAGE DES- 
CRIBING THE ERROR, AND THE CSR CONTENTS AT ERROR TIME. THERE IS 
NO ERROR LOOPING AND ERROR PRINTOUT I$ AUTOMATIC; HOWEVER, 

PRESSING CONTINUE, AFTER ERROR, WILL CAUSE THE FAILING SUBTEST TO 
REPEAT EXECUTION. 


NPR TEST 


la THIS TEST PRINT A BRIEF MESSAGE DESCRIBING THE ERROR AND 


MISCELLANEOUS ERRORS 


THERE ARE TWO SUBROUTINES USED TO DETERMINE DEVICE MODE AND DEVICE 
TIMING. ERRORS IN THESE ROUTINES ARE SELF-EXPLANATORY AND ARE 
FATAL. THESE ERRORS USUALLY OCCUR BECAUSE ONE OF THE PORTS 

WAS LEFT IN THE MANUAL MODE. 


SEQ 0009 
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TEST DESCRIPTIONS: 


MONOPORT TESTS 


TEST1. 


TEST2. 


TESTS. 


TEST4. 


TESTS. 


TEST6. 


TEST7. 


TEST10. 


TEST11. 


TEST12. 


TEST POST-RESET BIT PATTERN IN CSR. 

THIS TEST CHECKS THE CONTROL STATUS REGISTER CONTENTS 
AFTER RESET TO INSURE THAT ANY RESET=CLEARABLE BITS ARE 
CLEARED. 

TEST READ/WRITE BITS IN CSR. 


eB A acai THAT BITS 0 AND 6 CAN BE SET AND CLEARED 


TEST BYTE ACCESS IN CSR. 
THIS TEST CHECKS THE BYTE ACCESS CAPABILITY OF THE CSR. 
CONNECT TEST WITHOUT INTERUPT ENABLE. 


THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT 
PROCESS WITH INTERUPTS DISABLED. 


RELEASE TEST WITHOUT INTERUPT ENABLE. 


THIS TEST VERIFIES THE PROPER OPERATION OF THE RELEASE 
PROCESS WITH INTERUPTS DISABLED. 


CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE. 

THIS TEST CHECKS THE PROPER OPERATION OF THE DEVICE 

WHEN THE CONNECTION PROCESS CANNOT CONNECT TO THE SHARED 

BUS WITHOUT INTERUPTS ENABLED. 

RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE. 

THIS TEST CHECKS THAT THE DEVICE WILL RELEASE poe SHARED 

BUS WHEN UNIBUS MASTERSHIP CANNOT BE OBTAINED AN 

INTERUPTS ARE DISABLED. 

CONNECT TEST 

THIS TEST VERIFIES THE CONNECT PROCESS UNDER INTERUPT CONTROL. 
RELEASE TEST 

THIS TEST VERIFIES THE RELEASE PROCESS UNDER INTERUPT CONTROL. 
CONNECT FAILURE TEST 


THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT 
PROCESS,UNDER INTERUPT CONTROL,WHEN THE DEVICE CANNOT 


SEQ 0010 
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OBTAIN BUS MASTERSHIP. 

TEST13. RELEASE TEST WITHOUT BUS MASTERSHIP 
THIS TEST VERIFIES THE THE PROPER OPERATION OF THE RELEASE 
PROCESS, UNDER _INTERUPT CONTROL, WHEN THE DEVICE CANNOT 
OBTAIN BUS MASTERSHIP. 

TEST14. RESET (RST) TEST 
THIS TEST iat THE OPERATION OF THE DEVICE RESET BIT 

(RST) IF AN EXTERNAL DEVICE REGISTER HAS BEEN INSERTED 

IN THE PARAMETER BLOCK. 

TEST15. RESET HOLD (HLD) TEST 


THIS TEST CHECKS THAT THE HLD BIT WILL HOLD THE SHARED 
BUS DURING AND AFTER A BUS RESET. 


TEST16. HI-SPEED SWITCHING TEST 


THIS TEST CAUSES THE DEVICE TO CONNECT AND DISCONNECT 
AT HIGH SPEED 1000 TIMES WHILE CHECKING FOR ERRORS. 


TEST"7. RESET=IN-NEUTRAL TEST 
THIS TEST CHECKS FOR RESET=IN-NEUTRAL IF AN EXTERNAL 


DEVICE REGISTER IS PRESENT AND PRINTS OUT THE RESULT ON 
THE FIRST PASS. 





SEQ 0011 
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MULTIPORT TEST 


THE MULTIPORT TEST IS A 
THE DTO7 IN Ad a MODE AND ONE F 
MODE THE PORT I.D.#S OF ALL THE 
IN ASCENDING NUMERICAL ORDER THE 
PERFORMED IS CREATED. EACH DTO7 P 
4 THE OTHER PORTS ARE SLAVES. OTHER Re ARE TWO why CTION 
D THREE SLAVE FUNCTIONS; ag 2 BEING: FUNCTION! MASTER)” “DETECT SELECTED 
SLAVE REQUEST AND REJECT IT, FUNCTION (MASTER) DeveCt SELECTED 
SLAVE REQUEST AND !GNORE IT, FUNCTIONS (SLAVE) SEND REQUEST 


D107 


US, EXPECT 
REJECTION, 3. SEND REQUEST AND EXPECT CONNECTION, AND 4. DETECT REQUEST 
AND REJECT IT. 


MANUAL INTERVENTION TEST 
THE MANUAL INTERVENTION TEST VERIFIES THE PROPER OPERATION 
OF CERTAIN DEVICE FEATURES THAT REQUIRE MANUAL ASSISTANCE TO TEST. 
THIS TEST 7 REQUIRES THE OPTIONAL MANUAL CONTROL PANEL FOR 
PROPER OPERATION. THE FEATURES TESTED ARE: MANUAL MODE, 
PORT POWER OK AND SWITCHED BUS POWER FAIL. 
NPR TEST 


THE NPR TEST CHECKS GUT THE NPR LINE ON THE SWITCH SUS. 
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384 ~ 167400 $SWR=167400 —.’ 
385 000001 $TN=1 
387 .SBTTL BASIC DEFINITIONS 
(1) s INITIAL ADDRESS OF THE STACK POINTER *** 1100 ee 
(1) 001100 STACK= 1100 
(1) -EQUIV EMT, ERROR :;BASIC DEFINITION OF ERROR CALL 
(1) “EQUIV IGT,SCOPE + BASIC DEFINITION OF SCOPE CALL 
(1) ; *MISCELLANEOUS DEFINITIONS 
(1) 000011 T= 11 sCODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 + CODE FOR LINE FEED 
(1) 000015 CR= 15 ::CODE FOR EARRIAGE RETURN 
(1) 000200 CRLF= 200 [CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 PS= 177776 t:PROCESSOR STATUS WORD 
(1) .EQUIV PS,PSW 
(1) 177774 STKLMT= 177774 rzSTACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 > :PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 S:HARDWARE SWITCH REGISTER 
C1) 177570 DDISP= 177570 ‘HARDWARE DISPLAY REGISTER 
(1) ;*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= 10 7:GENERAL REGISTER 
(1) 000001 R1= 11 GENERAL REGISTER 
(1) 000002 R2= %2 GENERAL REGISTER 
(1) 000003 R3= 13 + GENERAL REGISTER 
(1) 000004 R4= 14 +:GENERAL REGISTER 
(1) 000005 R5= 15 t:GENERAL REGISTER 
(1) 000006 R6= 16 GENERAL REGISTER 
(1) 000007 R7= 47 GENERAL REGISTER 
(1) 000006 SP=R6 ::STACK POINTER 
C) 000007 PC=R7 +: PROGRAM COUNTER 
(1) :*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= sO : PRIORITY LEVEL 0 
(1) 000040 PRi= 40 PRIORITY LEVEL 1 
(1) 000100 PR2= 100 > PRIORITY LEVEL : 
(1) 000140 PR3= =: 140 + PRIORITY LEVEL 
(1) 000200 PR4= 200 + PRIORITY LEVEL & 
(1) 000240 PR5S= 240 = PRIORITY LEVEL 5 
(1) 000300 PR6= 300 + :PRIORITY LEVEL 6 
(1) 000340 PR7= 340 : PRIORITY LEVEL 7 
(1) :*''SWITCH REGISTER’ SWITCH DEFINITIONS 
(1) 100090 $w15= 100000 
(1) 040000 SW14= 40000 
(1) 020000 SwW13= 20000 
(1) 010000 SW1i2= 10000 
(1) 004000 SWi1= 4000 
(1) 002000 SW10= 2000 
(1) 001000 SwO9= 1000 
(1) 000400 SwO8= 400 
(1) 00200 SwO7= 200 
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BASIC DEFINITIONS 






40 


T01,B1T1 
B1T00,B1T0 


C *‘CPU"’ TRAP VECTOR ADDRESSES 
4 E OUT AND OTHER ERRORS 
LENSER? AND ILLEGAL INSTRUCTIONS 


WWhon aa 
FOROKRELO 





E 
:JBREAKPOINT TRAP (BPT) 
il NPUT/OUTPUT TRAP (IOT) **SCOPE** 


3 ER FAIL 
: EMULATOR TRAP (EMT) **ERROR** 
‘TRAP*’ TRAP 


> 


eee ee ee ee ee ee ee me me ee ee ee ee ee ee ee ed ed ed ed ed ad od 


er Ne a a a I ee ee ee ee ee ee es SS YS SYS YY ww 


PRR RRNA AAA AAA AAA AAA ABABA OQEQEOQ(COQOQOQOQLOQLOQL LL 


we  I O 
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“NOV-81 17:16 BASIC DEFINITIONS SEQ 0015 
000060 TKVEC= +4 ::TTY KEYBOARD VECTOR 
000064 TPVEC= ee uty PRINTER VECTOR 
000240 PIRQVEC= 49 ;PROGRAM_INTERRUPT REQUEST VECTOR 
177420 ABASE=177420 BASE DTO7 BUS ADDRESS EQUAT 
160350 AVECT1=160350 ;BASE DTO7 PRIORITY & VECTOR ADDRESS EQUATE 
001124 GOOD=$GDDAT 
001126 BAD=SBDDAT 
000001 REQ=B1TO 
001122 BADA=$8DADR 


-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3*KT11 VECTOR ADDRESS 


| 
| 
| 
000250 MMVEC= 250 
3*KT11 STATUS REGISTER ADDRESSES 
177572 SRO= —-177572 
177574 SRI= 177574 
177576 SR2= —«-177576 
172516 SR3= s-'172516 
s*KERNEL ‘‘I'' PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDRI= 172302 
172304 KIPDR2= 172304 
172306 KIPDR3= 172306 
172310 KIPDR4= 172310 | 
172312 KIPDR5S= 172312 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 
:*KERNEL ‘'I'' PAGE ADDRESS REGISTERS | 
172340 KIPARO= 172340 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 | 
172346 KIPAR3= 172346 
172350 KIPARG= 172350 | 
172352 KIPARS= 172352 | 
172354 KIPAR6= 172354 
172356 KIPAR7= 172356 
~SBTTL TRAP CATCHER 
000000 


=0 
2 eALt, UNUSED Pro’ OF THE VECTOR AREA CONTAIN 
7*A_"'.4+2, IOT™ SEQUENCE TO “AGH oC PROCESS ILLEGAL 


$ CUR. 
s*THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT 
3 * TRAPS on ba Ay SSCOPE ROUTINE WHICH (IF THE RETURN PC IS 
s*LESS T. 1002) JUMPS TO THE SERROR ROUTINE. 
{THE SERA IROUT IW WILL REPORT THE ~ AS FOLLOWS: 
PC=Y Y UNEXPECTED TRAP TO X 
2 SAND RETURN. 10. THE PROGRAM AT PC= Vyvyeyee 
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{1 : #WHERE bree it Mae he Th TRAP 

(1) {ANOTE IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

et id CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 
(1) 000000 000000 $40CAT: HALT 33H 

3 000002 000737 BR -~100 BRANCH TO 177700 & TIME OUT (NOT ON 
(1) 000004 002612 -WORD ROUT3 TEVECTOR TO STARTING ADDRESS 
3 000006 OT se WOR? 340 33WITH PRIORITY LEVEL 7 

(1) 000174 000000 tr “WORD 0 3zSOFTWARE DISPLAY REGISTER 
(1) 000176 000000 WREG: .WORD 0 3eSOFTWARE SWITCH REGISTER 
(1) SSBTTL STARTING ADDRES (ES) 

(1) 000200 000137 002612 JMP @A#ROUTS ;;GO TO START OF PROGRAM 
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97 .SBTTL ACT11 HOOKS 
2) FREER RERERERERERERERER EEE RERERREREREREREEE ERE RERERERERERREERERE 
1) “HOOKS REQUIRED BY ACT11 
1) 000204 $SVPC=. sSAVE PC 
1) 000046 =46 
1 ) 000046 021640 SENDAD 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
1) 000052 000000 “WORD 0 j2)SE7 LOC. 52 TO ZERO 
1) 000204 “ =$SVPC +: RESTORE P 
98 001000 0 


-=10 
-SBTTL APT PARAMETER BLOCK 


RRR RR RRR AMAR ARR RRO OW Ot 


99 

1 

2 LERRRR RAR R ERR RRR AERA RARER AAR RRR EE 
1 :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

2 irtitiiititittii iii ttt ie 
1 001000 -$X=.  ;;SAVE CURRENT LOCATION 

1 000024 2=24 33SET POWER FAIL TO POINT TO START OF PROGRAM 

1) 000024 000200 200 33FOR APT START UP 

1 000044 .=44 a 5 es TO APT INDIRECT ADDRESS PNTR. 

1) 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 

3 001000 .=.$X | 3:RESET LOCATION COUNTE 


ETSI ITT T ELITE ELLE ik citibb kh telehshtolohtedelatabedabebelotedebedoletabededete 


eee ee Ns a a ees ta ee Yl wa 


6 Ser UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 

s INTERFACE SPEC. 

(1) 001000 SAPTHD: 

(1) 001000 000000 $HIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

(1) 001002 001206 SMBADR: .WORD $MAIL :ZADDRESS OF APT MAILBOX (BITS 0-15) 

(1) 001004 000017 STSTM: .WORD 15. 3;RUN TIM OF LONGEST TEST 

(1) 001006 000074 $PASTM: .WORD 60. : RUN TIME IN SECS. OF 1ST PASS ry 1 UNIT (QUICK VERIFY) 

(1) 001010 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 000052 - WORD SETEND-SHAIL/2 3;LENGTH MAILBOX~E TABLE (WORDS) 
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400 .SBTTL COMMON TAGS 

(2) FRRRREERRERERERRRRERREEEEERERERREEEEERRERERAERERREARREEREREERRERE 
(1) ZRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

(1) S*USED IN THE PROGRAM. 

(1) 001100 .=1100 

(1) 001100 SCMTAG: ;;START OF COMMON TAGS 

(1) 001100 000000 0 

(1) 901102 000 STSTNM: .BYTE 0 z:CONTAINS THE TEST NUMBER 

(1) 00110 000 SERFLG: .BYTE 0 ;: CONTAINS ERROR FLAG 

(1) 001104 00 SICNT: .WORD 0 :: CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: :WORD 0 3: CONTAINS SCOPE LOOP ADDRESS 

(1) 001110 000000 SLPERR: :WORD 0 Zi CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: :WORD 0 SE CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL BYT 

(1) 001115 001 SERMAX: :BYTE 1 Zi CONTAINS MAX. ERRORS PER TEST 

(1) 001116 000000 SERRPC: ; 0 ;: CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 SGDADR: .WORD 0 Z:CONTAINS ADDRESS OF 'GO0D" DATA 
(1) 001122 SBDADR: . 0 Z:CONTAINS ADDRESS OF "BAD' DATA 

(1) 001124 000000 SGDDAT: :WORD 0 ZCONTAINS 'GOOD* DATA 

(1) 001126 000000 SBDDAT: :WORD 0 CONTAINS "BAD' DATA 

(1) 001130 000000 “WORD 0 ;:RESERVED--NOT TO BE USED 

(1) 001132 000000 :WORD 0 

(1) 001134 000 $AUTOB: .BYTE 0 ; ;AUTOMATIC MODE INDICATOR 

(1) 001135000 SINTAG: -BYTE 0 ;: INTERRUPT MODE INDICATOR 

(1) 001140 177570 SWR:  .WORD DSWR ;:ADDRESS OF SWITCH REGISTER 

(1) 001142 177570 DISPLAY: .WORD DDISP ZZADDRESS OF DISPLAY REGISTER 

(1) 001144 177560 $TKS: 177560 {TTY KBD STATUS 

(1) 001146 177562 $TKB: 177562 KBD BUFFER 

(1) 001150 177564 $TPS: 177564 seTTy PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177568 TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 3: CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 $FILLS: {BYTE 2 CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: :BYTE 12 ZTINSER T FILL CHARS. AFTER A‘ 

(1) 001157 000 STPFLG: ‘BYTE 0 3:"TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=VES) 
(3) 001160 000000 STMPO: :WORD 0 3:USER DEFINED 

(3) 001162 000000 $TMP1: :WORD 0 Z:USER DEFINE 

(3) 001164 000000 $TMP2: :WORD 0 3:USER DEFINED 

(3) 001166 0 $TMP3: :WORD 0 3:USER DEFINED 

(3) 001170 000000 $TMP4: WORD 0 Z5USER DEFINED 

(1) 001172 000000 STIMES: 0 3:MAX. NUMBER OF ITERATIONS 

(1) 001174 SESCAPE :0 ; SESCAPE ON ERROR ADDRESS 

(1) 001176 177607 000377 SHELL: .ASCIZ <207><377><377> i; CODE FOR BELL 

(1) 001202 SQUES: ‘ASCII Z:QUESTION MARK 

(1) 001203 015 SCRLF: ‘ASCII <i5> {CARRIAGE RETURN 

(1) 001204 000012 SLF: | SASCIZ_ <12> ZILINE FEED 

(2) LRRRARARARAERAREEREREEREEEEREREEAREEREEREEREREREREEERAERERERE REE 
(2) “SBTTL APT MAILBOX-ETABLE 

(3) » TE aries acer anegebacamapaigrsey foyra saunryy ener res 
(2) EVEN 

(2) 001206 SMAIL: APT MAILBOX 

(2) 001206 000000 SHSGTY: «WORD AMSGTY :ZMESSAGE TYPE. CODE 

(2) 001219 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
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CRDTAB.P11 16-NOV-81 17:16 APT MAILBOX-E TABLE SEQ 0019 | 
(2) 001212 00 STESTN: .WORD ATESTN ;;TEST NUMBER 
(2) 001214 000000 SPASS: .WORD APASS ::PASS COUNT 
(2) 001216 SDEVCT: .WORD ADEVCT ::DEVICE COUNT 
(2) 001220 000000 SUNIT: .WORD AUNIT ::1/ 
(2) 001222 000000 s WORD AMSGAD ;;MESSAGE ADDRESS 
(2) 001224 SMSGLG: .WORD AMSGLG ;:MESSAGE LENGTH 
(2) 001226 SETABLE ::APT ENVIRONMENT TABLE 
(2) 001226 000 NV BYTE AENV ;;ENVIRONMENT BY 
(2) 001227 000 -BYTE AENVM  ;: ENVIRONMENT TS 
(2) 001230 000000 SSWREG: .WORD ASWREG ;:APT SWITCH REGISTER 
(2) 001232 000000 SUSWR: .WORD AUSWR ::USER SWITCH 
(2) 001234 000000 SCPUOP: .WORD ACPUOP ::CPU TYPE -OPTIONS 
(2) 3* BITS Is-11<¢PU T 
(2) i* ALOT. “1i/05= =02. 11/20=03, 11/40=04,11/45=05 
(2) 8 11/70=06-P 
(2) :* BIT 10=REAL TI Atte 
(2) * BIT 9=FLOATING POINT PROCESSOR 
(2) = BIT 8=MEMORY GE 
(2) 001236 000 $MAMS1: .BYTE AMAMS1 ;;:HIGH ADDRESS,M.S. BYTE 
(2) 001237 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE, BLKA1 
(2) 3* MEM.TYPE BYTE == (HIGH BYTE) 
(2) :* 900 NSEC CORE=001 
(2) 8 300 NSEC BIPOLAR=002 
(2) = 500 NSEC 40S=003 
(2) 001240 000000 $MADR1: .WORD AMADR1 ;:HIGH ADDRESS cee k#1 t 
(2) 3 MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
(2) 001242 000 $MAMS2: .BYTE AMAMS2 ;:HIGH ADDRESS,M.S. BYTE 
(2) 001243 000 SMTYP2: .BYTE AMTYP2 3IMEN. TYPE ,BLKA2 
(2) 001244 000000 SMADR2: .WORD AMADR2 =; :MEM.LAST ADDRESS BLK#2 
(2) 001246 000 SMAMS3: .BYTE AMAMS3 ::HIGH ADDRESS,M.S.BYTE 
(2) 001247 000 SMTYP3: .BYTE AMTYP3 3 sMEM. TYPE ,BL 
(2) 001250 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS, BLKA#3 
(2) 001252 000 SMAMS4: .BYTE AMAMSG :: ADDRESS .M.S.BYTE 
(2) 001252 000 SMTYPG: .BYTE AMTYP4 3 ;MEM.TYPE, 
(2) 001254 000000 SMADR4: .WORD AMADRG ::MEM.LAST ADDRESS,BLKA4 
(2) 001256 160350 $VECT1: .WORD AVECT1 i INTERRUPT VECTORAT BUS PRIORI TYA1 
(2) 001260 000000 SVECT2: .WORD AVECT2 NTERRUPT VECTOR#2BUS PRIORITY#2 
(2) 001262 177420 SBASE: .WORD ABASE 3 3BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001264 000000 SDEVM: .WORD ADEVM : CE MAP 
(2) 001266 000000 $CDW1: .WORD ACDW1 ::CONTROLLER DESCRIPTION WORDA1 
(2) 001270 000000 SCDW2: WORD ACDW2 ; ; CONTROLLER DESCRIPTION WORDA2 
(2) 001272 000000 DDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORD#O 
(2) 001274 000000 SDDWi: .WORD ADDW1 ;:DEVICE DESCRIPTOR WORDA#1 
(2) 001276 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDA, 
(2) 001300 000000 SDDW3: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORDA 
(2) 001302 000000 DDW4: .WORD ADDW4  ::DEVICE DESCRIPTOR WORDS 
(2) 001304 000000 $DDWS: .WORD ADDWS ;:DEVICE DESCRIPTOR WORD#S 
(2) 001306 000000 SDDW6: .WORD ADDW6 ;:DEVICE DESCRIPTOR WORD#6 
(2) 001310 000000 $DDW7: .WORD ADDW7 ;:DEVICE DESCRIPTOR WORDA7 
(2) 001312 000000 $DDW8: .WORD ADDW8 ::DEVICE DESCRIPTOR WORD#S 
(2) 001314 00 DDW9: .WORD ADDW9  ;:DEVICE DESCRIPTOR 
(2) 001316 000 SDDW10: .WORD ADDWI0 ;;DEVICE DESCRIPTOR WORD#10 
(2) 001320 000000 $DDW11: .WORD ADDW11 ::DEVICE RIPTOR WORDA11 
(2) 001322 000000 SDDW12: .WORD ADDW 2 ::DEVICE DESCRIPTOR WORDA1 
(2) 001324 000000 SDDW13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORD#1 
(2) 001326 000000 $DDW14: “WORD ADDW14 ::DEVICE DESCRIPTOR WORD#14 
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001330 000000 


001332 
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APT MAILBOX-E TABLE 


$DDW15: .WORD 


SETEND: 





ADDw15 


:sDEVICE DESCRIPTOR WORDA15 


SEQ 0020 
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033554 
035005 
035356 
000000 
033622 
035005 
035356 
000000 


033661 


035005 
035356 
000000 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 
3*THIS TABLE CONTAINS THE INFORMATION 4 EACH ERROR THAT CAN OCCUR. 
I NUMBER FOUND 


7*THE INFORMATION IS OBTAINED BY Me tes HE INDEX IN 
[*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE OS IS PERTINENT. 


**NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERR 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS SEP LAINED AS FOLLOWS: 

3* EM ssteints TO THE ERROR MESSAGE 

3* DH NTS TO THE DATA HEADER 

DT + :POINTS TO THE DATA 

3* DF ::POINTS TO THE DATA FORMAT 

SERRTB: 

sERRORA1 
a ;POST-RESET CONDITIONS NOT MET IN CSR 
DT1 
0 

sERRORA2 
~~ ;READ/WRITE BIT FAILURE IN CSR 
DT1 
0 

sERRORAS 
a :BYTE ACCESS FAILURE IN CSR 
DT1 
0 

sERRORAS 
Ae ;ERROR IN CONNECT PROCESS 
DT1 
0 

ERRORAS 
ee : INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 
DT1 
0 

ERRORA#6 
EM6 :COULD NOT CONNECT 
DH1 
DT1 
0 

ERROR#7 
sf sERROR IN RELEASE PROCESS 
DT1 
0 

Zs ERROR#10 
fe 3NO INTERUPT DETECTED 
DT1 


;ERRORA#11 


SEQ 0021 
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442 001432 
443 001434 
444 001436 
445 001440 
446 
447 001442 
448 001444 
449 001446 
450 001450 
451 
452 001452 
453 001454 
454 001456 
455 001460 
456 
457 001462 
458 001464 
459 0014 
460 001470 
461 
462 001472 
463 00147 
464 001476 
465 001500 
466 
467 001502 
468 001504 
469 001506 
470 001510 
471 
472 001512 
473 001514 
474 001516 
475 001520 
476 
477 001522 
478 00152 
479 001526 
480 001530 
481 
482 001532 
483 001534 
484 001536 
485 001540 
486 
487 001542 
488 001544 
489 001546 
490 001550 
491 
492 001552 
493 001554 
494 001556 
495 001560 
496 
497 001562 
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034166 
035005 
035356 
000000 


034221 


000000 
034417 


000000 
034464 


034533 
035121 
035406 
000000 


034564 


0 
000000 
027524 
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DT1 


J ERROR#15 
EM13 


DH1 
DT1 


0 
;ERRORA14 
EM14 


DH1 
DT1 


0 
sERROR#15 
EM15 


DH1 
DT1 


0 
; ERROR#16 
EM16 


DH1 
DT1 


0 
3 ERRORA17 
EM17 


DH2 
DT2 
0 


; ERROR#20 
EM20 


DH1 
DT1 


0 
; ERRORA21 
EM21 


DH3 
DTS 


0 
sERROR#22 
EM22 


Ha 
DT2 


0 
sERROR+23 
EM23 


DH5 
DT4 


0 
;ERROR+24 
EM24 


; INTERUPT AT WRONG PRIORITY 


;CONNECT CONDITION FAILURE 


ERROR IN CONNECT FAILURE PROCESS 


sERROR IN RELEASE TEST W/C BUSS MASTERSHIP 


sRELEASE CONDITIONS NOT MET 


:TMO BIT NOT SET 


COULDN'T READ/WRITE EXTERNAL DEVICE 


sRESET HOLD (HLD) DIDN'T DISABLE RESET 


sRESET (RST) DIDN'T WORK 


s;RESET-IN-NEUTRAL OPERATION HAS CHANGED 


s;ERROR:NPR DATO NOT DONE 


sERROR:NPR DID NOT SET RDY 


SEQ 0022 | 
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000000 
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ERROR POINTER TABLE 


DHS 
DT4 


0 
7 ERROR+25 


Zs ERROR+26 


DT4 


7; ERROR+27 


EM27 
DH5 
DT4 
0 


;ERROR:UBE DID NOT INTERRUPT WHEN NPR FINISHED . 


sERROR: TWO LOC WRITTEN WHEN ONE NPR AND INT ON DONE ENABLE 


sERROR:DEVICE DOESN'T EXIST ON SWITCH BUS 


SEQ 0023 


-itadineliieaecateiesntitabaaaceiaiaainedidinste atacidigiin ninshiediadeia tenditilgeerationmmnnadinine 
| 
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«MAIN. MACY11 30A(1052) ee 17: PAGE 12-11 
CRDTAB.P11 16-NOV-81 17:1 RROR POINTER TABLE SEQ 0024 
522 ; 
252 Py DTO7 BUS REGISTER ADDRESS POINTERS 
252 001622 177420 CSR: 177420 ; COMMAND/STATUS REGISTER 
44 : DTO7 VECTOR ADDRESS POINTERS 
529 001624 000350 VECO: 350 5 sNORMAL INTERRUPT VECTOR 
rh 001626 000352 VEC2: 352 : 
a3¢ : DTO7 DEVICE LEVEL 
axe 001630 000340 PRI: 340 
238 . COMMAND STATUS REGISTER BIT ASSIGNMENTS 
235 : COMMCN PROGRAM LOCATION(S) 
540 001632 000000 TSTNUM: 0 ;CONTAINS TEST NUMBER ON ERROR 
541 ITITITITITIIIIITILLI LITTLE htt LL TTT TTT TTT Te 
542 = PROGRAM PARAMETER BLOCK 
543 001634 000000 6703: 0000 3DT03/DT07 MODE INDIACATER,0=DT07 
544 001636 000000 DEVAD: 0000 S EXTERNAL DEVICE REGISTER ADDRESS 
545 001640 000000 DEVRW: 0000 *READ/WRITE BITS IN ABOVE 
546 001642 000000 DEVRC: 0000 “MASK OF RESET CLEARABLE BITS IN ABOVE 
547 001644 177777 PORTNO: -1 sTHIS PORT'S ID@ 
548 001646 177777 EXPRT1: =-1 3 EXTERNAL PORT ID (-1=NO PORT) 
549 001650 177777 EXPRT2: =1 ; 
550 001652 177777 EXPRT3: =-1 ” patietan: 
551 001654 177777 EXPEND: -1 : TABLE TERMINATOR 
552 001656 000000 EXPTCT: 0 :# OF EXTERNAL PORTS 
553 001660 177777 SEQ: -1 + SEQUENCER 
554 001662 177777 -1 
555 001664 177777 -1 
556 001666 177777 -1 
557 001670 177777 -1 
558 001672 001660 SEQPTR: SEQ ; SEQUENCER POINTER 
559 001674 001662 NEXENT: SEQ+2 *NEXT ENTRY POINTER 
560 001676 000011 MENU: BLKW 9. ‘MENU STORAGE 
561 001720 177777 - [MENU TERMINATOR 
562 001722 000000 CURFUN: 0 ;CURRANT FUNCTION 
563 001724 000000 CURID: 0 * CURRANT SLAVE ID 
564 001726 0 CYCLE: 0 + SUBP ‘ASS COUNT 
565 001730 000000 COVID: 0O : CONVERTED SLAVE ID 
566 001732 000005 TEMP1: .BLKW 5 ORARY STORAGE 
567 001744 000000 ONOFF: 0 ‘MASTER SLAVE INDIACATOR 
568 001746 000000 IMA 0 
569 001750 000000 TIMB 0 
570 001752 000000 KONST: 0 
571 001754 000001 DivCON: 1 ;RESET-IN-NEUTRAL ratte. FLAG 
572 001756 177777 TRIN: -1 s TEST RESET IN NEUTRAL FLAG 
573 001760 000000 USEPAR: 0 SUSING PARIN FLAG O=NOT USING 
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| .MAIN. MACY TT 30A(1052) 7 i$cnov-81 17: 26. pace 12-12 
jae. P11 V-81 17:16 AM START SEQ 0025 
578 ~SBTTL PROGRAM START 
| $79 001762 START: 
(1) .SBTTL INITIALIZE THE COMMON TAGS 
(1) [CLEAR THE COMMON TAGS ($CMTAG) AREA 
(1) 001762 012706 001100 MOV ASCMTAG,RO ssEIRST LOCATION TO BE CLEARED 
(1) 001766 005026 CLR (R6)+ S:CLEAR MEMORY LOCATION 
(1) 001770 022706 001140 CMP #SWR,R6 ;;DONE? 
(1) 001774 001374 BNE 6 ::LOOP BACK IF NO 
(1) 001776 012706 001100 WSTACK,SP ::SETUP THE STACK POINTER 
(1) :: INITIALIZE A FEW VECTORS 
(1) 002002 012737 032670 000020 MSSCOPE ,@#I0TVEC ;;10T VECTOR FOR SCOPE ROUTINE 
(1) 002010 012737 000340 9000¢2 MOV #340, a#1OTVEC+2 ;: LEVEL 
(1) 002016 012737 032204 000030 MOV ASERROR avEMTVEC is EMT VECTOR FOR ERROR ROUTINE 
(1) 002024 012737 000340 900032 MOV #340, a#EMTVECt2 ; Ll? 
(1) 002032 012737 033370 000034 MOV #STRAP, @#TRAPV VEC’ TRAP sein FOR TRAP CALLS 
(1) 002040 012737 000340 000036 MOV #340, a#TRAPVEC+2; ie 
(1) 002046 012737 033162 000024 MOV #SPURDN, a#PWRVEC ryt tie FAILURE VECTOR 
(1) 002054 012737 000340 000026 MOV #360 aaPURVECYD :3LEVEL 7 
(1) 002062 013737 621606 021600 MOV SENDCT,SEOPCT | ::SETUP END-OF-PROGRAM COUNTER 
(1) 002070 005037 001172 CLR STIMES i INITIALIZE NUMBER OF ITERATIONS 
(1) 002074 005037 001174 CLR SESCAPE eCL EAR THE ESCAPE ON ERROR ADDRESS 
(1) 002100 112737 000001 001115 MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 
(1) 002106 012737 002106 001106 MOV #..$LPADR :EINITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 002114 012737 002114 001110 MOV #. SLPERR TUP THE ERROR LOOP ADDRESS 
(2) ::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT OUND OR 
(2) [EQUAL TO A ‘'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 002122 013746 000 MOV @#ERRVEC,-(SP) ::SAVE ERROR VECTOR 
(2) 002126 012737 002162 000004 MOV #64$, a#ERRV +:SET UP ERROR VECTOR 
(2) 0021 012737 177570 001140 MOV #DSWR,SWR sz; SETUP FOR A HARDWARE SWICH REGISTER 
(2) 002142 012737 177570 001142 MOV #DDISP,DISPLAY :ioNy A HARDWARE DISPLAY REGISTER 
(2) 002150 022777 177777 176762 CMP #-1,aSWR [TRY TO REFERENCE HARDWARE SwWR 
(2) 002156 001012 BNE 66$ + : BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) + TAND THE HARDWARE SWR IS NOT = -1 
(2) 002160 000403 BR 65$ ‘BRANCH IF NO TIMEOUT 
(2) 002162 012716 002170 64$: MOV #65$, (SP) 33SET UP FOR TRAP RETURN 
(2) 002166 000002 RTI 
(2) 002170 012737 000176 001140 65$: MOV #SWREG, SWR PO is TO SOFTWARE SwWR 
(2) 002176 012737 000174 001142 MOV #DISPREG,DISPL 
(2) 002204 012637 000004 66$: MOV (SP) +, SAERRVEC ” RESTORE ERROR VECTOR 
(2) 002210 005037 001214 _ CLR S$PASS ::CLEAR PASS COUNT 
(2) 002214 132737 000200 001227 BITB #APTSIZE.SENVM ii TEST USER SIZE UNDER APT 
(2) 002222 001403 “ BEQ 67$ YES,USE NON-APT SWITCH 
(2) 0020 s 012727 001230 001140 - MOV #SSWREG, SWR SINO,USE APT SWITCH REGISTER 
580 002232 012737 026444 000004 SETUP1: MOV ae a#ERRVEC sPOINT TO TRAP ROUTINE 
581 002240 005000 CLR 
582 002242 013700 001256 MOV SVECTI RO :GET PRIORITY LEVEL 
583 002246 042700 000777 BIC #777,RO ‘CLEAR UNWANTED BITS 
584 002252 000300 SWAB OCiéRR 
385 002254 010037 001630 MOV RO.PRI ;SAVE DEVICE LEVEL 
th : NOW SETUP BUS ADDRESS VALUES 
289 002260 013737 001262 001622 SETUP2: MoV SBASE ,CSR ;STORE BUS ADDRESS 
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CRDTAB.P11  16-NOV-81 17:16 INITIALIZE THE COMMON TAGS SEQ 0026 
391 ; NOW SETUP VECTOR ADDRESSES 
593 002266 012700 001624 MOV #VECO,RO sSETUP VECTOR POINTER 
594 002272 013701 001256 MOV $VECTI,R1 ‘GET BASE VECTOR ADDR 
595 002276 042701 177000 BIC #177000,R1 ‘CLEAR UNWANTED BITS 
596 002302 010120 SETUP3: MOV R1, (RO) + ‘PUT ADDRS 
597 002304 062701 000002 ADD #2.R1 SINCR.TO NEXT LOC. 
598 062310 022700 001630 CMP #VEC2+2,R0 ‘DONE ALL LOCATIONS? 
599 002314 001372 BNE SETUP3 “BR, IF NOT DONE 
600 002316 005737 000042 TST ans2 ‘TEST CHAIN MODE UNDER XXDP 
601 002322 001052 BNE 1$ 'BR,IF CHAIN MODE 
602 .SBTTL TYPE PROGRAM NAME 
(1) :;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
(1) 002324 005227 177777 INC #1 ::FIRST TIME? 
(1) 002330 001047 BNE 64$ BRANCH IF NO 
(1) 002332 022737 021640 000042 CMP WSENDAD,@#42 =: :ACT-11? 
(1) 002340 001443 BEQ 64$ BRANCH IF YES 
(1) 002342 104401 002410 TYPE ,65$ t:TYPE ASCIZ STRING 
(2) .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
(2) 002346 005737 000042 TST a442 sARE WE RUNNING UNDER XXDP/ACT? 
(2) 002352 001012 BNE 66$ BRANCH IF YES 
(2) 002354 123727 001226 000001 CMPB ss SEN, #1 SZARE WE RUNNING UNDER APT? 
(2) 002362 001406 BEQ + :BRANCH IF YES 
(2) 002364 023727 001140 000176 CMP SWR ,ASWREG * SOFTWARE SWITCH REG SELECTED? 
(2) 002372 001005 BNE 67$ ::BRANCH IF NO 
(2) 002374 104406 GTSwR +:GET SOFT-SWR SETTINGS 
(2) 002376 000403 BR 67$ 
(2) 902400 112737 000001 001134 668: MOVB #1, $AUTOB ::SET AUTO-MODE INDICATOR 
(1) 002406 000420 BR 64$ -:GET OVER THE ASCIZ 
(1) ::65$: .ASCIZ <CRLF>/MAINDEC-11-CRDTAB DTO7 TEST/<CRLF> 
(1) 002450 64$: 
603 002450 005737 001760 1$: TST USEPAR :PARIN IN USE? 
604 002454 001024 BNE RESTRT SBR=YES; SKIP OVER DEVICE ADDRESS DEPENDENT CODE 
605 002456 012777 023022 177140 MOV #OOPS ,aVECO [LOAD UNEXPECTED INTERUPT RETURN 
606 002464 012777 000340 177134 MOV #340, aVvEC2 ‘SET PRIORITY 7 ON INTERUPT 
607 002472 005077 177124 CLR acsR ‘DETERMINE STATUS OF PWR OK BIT 
608 002476 000005 RESET ‘RESET THE BUSS 
609 000240 NOP 
610 002502 000240 NOP 
611 002504 000240 NOP 
612 002506 005037 001752 CLR KON 
613 002512 017737 177104 001752 MOV aCSR,KONST TSAVE CSR 
614 002520 042737 173777 001752 BIC #173777,KONST :MASK EVERYTHING EXCEPT PWR OK 
615 002526 012706 001100 RESTRT: MOV #STACK, SP SRESET STACK POINTER 
616 002532 012737 000002 000512 MOV #2 .a4312 ‘PUT RT] IN UBE VECTORS 
617 002540 012737 000002 000516 MOV #2.an516 “DITTO 
618 002546 012737 000002 000522 MOV #3 .989¢2 “DITTO 
619 002554 012737 000002 000526 MOV #2. 98526 “DITTO 
620 002562 000177 900104 JMP a@ROUTE :G0 DO IT ; 
621 02566 012737 002676 002672 ROUT1: MOV #MONPRT,ROUTE :SET UP FOR MONOPORT 
622 002574 000137 001762 JMP S 
623 002600 012737 007536 002672 ROUT2: MOV WMULPRT,ROUTE ;SET UP FOR MULTIPORT 
624 002606 000137 001762 JMP START 
625 002612 012737 000001 001760 ROUT3: MOV #1, USEPAR :SET FLAG 
626 002620 012737 024756 002672 MOV WPARIN,ROUTE :SET RETURN 
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ERDTAB.P11—- 16-NOV-81 17:16 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0027 

627 002626 005037 026426 CLR PARFLG =;CLEAR PARAMETER FLAG 

628 002652 000187 001762 JMP TART 

629 002656 012737 002690 002672 ROUT: Moy #18 ROUTE SET UP RETURN 

630 002644 000137 001762 JMP 

631 002650 012737 015300 002672 1$: | MOV #MANIN,ROUTE =; SET_UP FOR MANUAL INTERVENTION TEST 

65¢ 002696 004737 023840 JSR PC, DT IME G0 GET DEVICE TIMING 

633 002662 004737 023176 JSR —- PC. DMODE G0 GET DEVICE MODE 

634 002666 000137 015300 JMP ss MANIN 

635 002672 002676 ROUTE: MONPRT. :MAIN TEST DISPATCHER 

636 002674 000000 TEMP2: 0 

638 002676 MONPRT : 

639 002676 004737 026620 JSR «PC, CNTLC 1S IT CONTROL C ? 

640 002702 005737 026426 TST —— PARFLG 

641 002706 100402 BMI ~—s«A$ 

642 002710 004737 024232 JSR PC, GETADR 

643 002714 004737 023176 1$: JSR —- PC. DMODE 

644 002720 004737 023540 JSR —- PC DT IME 

645 002724 005737 000042 TST a2 :XXDP CHAINMODE OR APT/ACT? 

646 002730 001053 BNE _—s«*‘TST1 SKIP PRINTOUT IF ANYONE OF THE ABOVE 

647 002732 005737 001214 TST  $PASS 0 PASSES? 

648 002736 001046 BNE  3$ ;BR= 

649 002740 005737 001634 TST —-TO3 SWHAT MODE IS DEVICE? 

650 002744 001422 BEQ so $ :BR =DT07 MODE 

651 002746 104401 002754 TYPE ,65$ i: TYPE ASCIZ STRING 

(1) 002752 000416 BR 643 ::GET OVER THE ASCIZ 

(1) ::65$: .ASCIZ <200>/THIS DTO7 18 IN DTO3 MODE./ 

(1) 003010 64$: 

652 003010 000421 BR 3$ GO START TESTS 

653 003012 2$: 

(1) 003012 104401 003020 TYPE 678 : TYPE ASCIZ STRING 

(1) 003016 000413 BR 6$ ::GET OVER THE ASCIZ 

(1) 3367$: .ASCIZ <200>/THIS DTO7 IS PORTA / 

(1) 003046 663: 

654 003046 013746 001644 MOV PORTNO,-(SP) 3zSAVE PORTNO FOR TYPEOUT 

(1) 003052 104402 TYPOC 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 

655 003054 004757 021762 3$: JSR —~PC,, WAIT10 :WAIT ONE SECOND 

657 

658 


a 
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CRDTAB.P11  16-NOV-81 17:16 SEQ 0028 


660 .SBTTL 

662 FRREREREREERERERRRERERERERERERREREAERRRRREEREREREREREREERERERERERRE 
(3) CSTEST 1 TEST POST-RESET BIT PATTERN IN CSR.IDX1 

(3) SERRA EEEEEKEEAERREAEREREEKEAKEAEREAEREERERERERE 
(2) 003060 000004 $11: SCOPE 

(1) 003062 012737 990062 001172 MOV #50. . STIMES 400, 50, ITERATIONS 

663 003070 004737 02662 JSR CNTLC ‘1S IT CONTROL C? 

664 003074 012737 000340 177776 MOV #540 PSU :RISE PRIORITY 

665 00310 O1e777 000101 176512 MOV #101, aCSR ‘SET SOME BITS 

666 003110 013737 001752 001124 MOV KONST , GOOD ist ORE GOOD DATA 

667 003116 000005 RESET BUS 

668 00312 905200 1$: INC RO ‘DELAY AWHILE 

669 003122 001376 BNE 1$ 

670 003124 017737 176472 001126 MOV aCSR,BAD sSTORE CONTENTS OF CSR AND 

671 003132 013737 001622 001122 MOV CSR,BADA ‘ADDRESS 

672 003140 023737 001124 001126 CMP GOOD ,BAD * COMPARE 

673 003146 001401 BEQ 2 ‘BR IF OK 

674 003150 104001 ERROR+1 sPOST-RESET CONDITIONS NOT MET IN CSR 
675 003152 2$: :GO TO NEXT TEST 
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000062 
026620 


001124 


001752 


001124 


001172 


001126 


001124 


001126 
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TEST READ/WRITE BIT 


dD 3 
S IN CSR. IDX2 


33 RRA RARARERERAEEREEEEEEEEREEERERERERERARERERERREREREREEEREREEE 


TEST READ/WRITE BITS IN CSR.IDX2 


REE RERAEEREERREEKRERREAREEEEREAEEREEERAREARERERAEERAERRAEEEEREREREEEH 


s*TEST 2 

$12: SCOPE 
MOV #50.,$TIMES 
JSR PC, CNTLC 
MOV #340,PSW 
CLR acsR 

1$: MOV KONST , GOOD 
ADD #1,G00D 
MOV #1$,SLPERR 
MOV GOOD .@CSR 
MOV acs 
BIC 3530600, BAD 
BIC #74 ,BAD 
CMP GOOD ,BAD 
BEQ 
ERROR+2 

3$: MOV KONST, GOOD 
ADD 100,6 
MOV #3$,$LPERR 
MOV GOOD, acsR 
MOV acSR.BAD 
BIC #120600,BAD 
CMP GOOD ,BAD 
BEQ 
ERROR+2 

4$: V KONST , GOOD 
MOV #4$,$LPERR 
MOV GOOD, acsR 
MOV acsR.BA 
CMP GOOD .BAD 
BEQ 5 
ERROR+2 

5$: 


:DO 50. ITERATIONS 
t1S 17 CONTROL C? 


:LOCKOUT, INTERUPTS 
‘STORE GOOD DATA 
T LOOP-ON-ERROR ADDRESS 


+ Lh a CONTENTS OF CSR 

sMASK THE grenc! PROCESS INDIACATORS 
sMASK RQO0-3 

; COMPARE 

3BR IF OK 

;READ/WRITE Ae FAILURE IN CSR 
ZSTORE GOOD DAT 


;SET Py pttitae ADDRESS 

7SET BIT PATTERN 

STORE CONTENTS OF CSR 

MASK THE CONNECT PROCESS INDIACATORS 
COMPARE 


:BR IF OK 
sREAD/WRITE BIT FAILURE IN CSR 
: fh a GOOD 

T LOOP-ON-ERROR ADDRESS 


7SET BIT PATTERN 
; STORE CONTENTS OF CSR 
; COMPARE 


:BR IF OK 
sREAD/WRITE BIT F seats IN CSR 
:GO TO NEXT TEST 


ee 


E 3 
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CRDTAB.P11 —- 16=NOV=81 17:16 T2 TEST READ/WRITE BITS IN CSR.IDX2 SEQ 0030 — 
710 
71 1 J RRAAAARAEAERARREERAREREEEEREREERAEEEEREREREREEEEEREEEREREREEREREEE 
(3) tSTEST 3 TEST OF BYTE ACCESS IN CSR.IDX3 
(3) en 
(2) 003404 000004 813: SCOPE 
(1) 003406 012737 000012 001172 MOV #10. ,$TIMES -DO 10, ITERATIONS 
gle 003414 004737 026620 JSR PC, CNTLC tis 1 CONTRL C? 
714 003420 005077 176176 CLR acsR ZCLEAR CONTENTS OF CSR 
715 063424 013700 001622 MOV CSR,RO SSTORE ADDRESS OF CSR 
716 003430 M2710 000376 MOVB #376,aRO ‘TRY TO LOAD LOW ORDER BYTE 
717, 003434 013737 001752 001124 MOV KONST , GOOD ‘STORE GOOD DATA 
718 003442 062737 000100 001124 ADD #100, G00D 
719 003450 011037 001126 MOV @R0,BAD :STORE BAD DATA 
720 003454 023737 001124 001126 CMP GOOD ,BAD : COMPARE 
721 003462 001401 EQ 2 :BR IF OK 
722 003464 104003 ERROR+3 :LOW BYTE access FAILURE IN CSR 
723 003466 005077 176130 2$: LR CSR 
724 003472 013737 001752 001124 MOV KONST, GOOD <STORE GOOD DATA (PWR OK) 
725 003500 112760 000377 000001 MOVB «#377, 1(RO) STRY LOADING HI ORDER BYTE OF CSR 
726 003506 011037 001126 MOV a@RO,BAD ‘STORE CONTENTS OF CSR 
727 003512 023737 001124 001126 CMP G00D ,BAD ; COMPARE 
728 003520 001401 BEQ ‘BR IF OK 
729 003522 104003 ERROR+3 SHI-BYTE ACCESS FAILURE IN CSR 
730 003524 3$: [GO TO NEXT TEST 


aniinnciboanel 


manent 
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CRDTAB.P11  16=NOV-81 17:16 TEST OF BYTE ACCESS IN CSR.IDX3 SEQ 0031 
73 
73 3 FRRARAAEAAREREREREEEREEEEREREREREEEEEEEREERERERRERREREREERREREEERE 
(3) SeTEST 4 CONNECT TEST WITHOUT INTERUPT ENABLE. IDX4 
(3) SRAARAAEAAEKAEAARAREAAKAAEARERAEAAAEEARAEAAARAARARARARAEARAEAARAARARAEKREREE 
(2) 003524 000 1814: SCOPE 
(1) 003526 012737 000012 001172 MOV #10. ,STIMES ::D0 10. ITERATIONS 
£34 003534 004737 026620 JSR PC, CNTLC t1S IT CONTROL (C? 
736 003540 905000 1$: CLR RO :SET DELAY TIMER 
737 003542 012737 000000 177776 MOV #0,PSW SLOWER PRIORITY 
003550 005077 176046 CLR acsr [CLEAR CSR 
739 003554 012777 003736 176042 MOV #8$,aVECO [SET RETURN 
740 003562 012737 000340 177776 MOV #340, PS *RISE PRIORITY 
741 003570 013737 001752 001124 MOV KONST , GOOD * STORE GOOD DATA (SWB ACT,PWR OK,REQ) 
742 003576 062737 020001 001124 ADD #20001, GOOD 
743 003604 005737 001634 TST DTO3 :DT03 MODE? 
744 003610 001003 BNE 11$ ‘BR IF DTO3 
745 003612 062737 000400 001124 ADD #400, GOOD :SET BRO IF DT07 
746 003620 012777 000001 175774 11$: MOV #REQ.A@CSR ‘SET REQ (BITO) 
747 003626 017737 175770 001126 2$: MOV acSR,BAD :STORE CONTENTS OF CSR 
748 003634 042737 000074 001126 BIC #74 ,BAD [MASK RQO=3 
749 003642 023737 001124 001126 CMP GOOD ,BAD + COMPARE 
750 003650 001403 BEQ 5% ‘BR IF OK 
751 003652 005200 INC RO DELAY 
752 003654 001364 BNE 2$ [BR IF NOT DONE 
753 003656 104004 ERROR+4 :SWB ACT’ IT13), ,BRQ OR REQ NOT SET 
754 00 012737 000000 177776 S$: MOV #0. ZLOWER PRIORITY 
755 00 013737 001752 001124 MOV SSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
756 003674 062737 020201 001124 ADD F0D0iS B00D 
757 003702 005000 CLR RO sRESET DELAY 
758 003704 017737 175712 001126 6$: MOV @CSR,BAD ‘STORE CONTENTS OF CSR 
759 003712 023737 001124 001126 CMP GOOD BAD : COMPARE 
760 003720 001403 BEQ 7$ ‘BR IF OK 
761 003722 005200 INC RO DELAY 
762 003724 001367 BNE 6$ ‘BR IF T DONE 
763 003726 1 ERROR+4 {PONIBITT) WO T SET 
764 003730 005077 175666 7$: CLR acsR [CLEAR CSR AND DISCONNECT 
765 003734 000406 BR 9$ SEXIT 
766 003736 8$: 
(2) 003736 012600 MOV (SP)+,RO ::POP STACK INTO RO 
(2) 003740 012600 MOV (SP)+°RO ::POP STACK INTO, RO 
767 003742 017737 175654 001126 MOV acsrk,BAD :STORE CONTENTS OF CSR 
768 003750 104005 ERROR+5 SINTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 


769 003752 012777 023022 175644 9$: MOV #OOPS ,aVECO RESET RETURN 
770 :GO TO NEXT TEST 


-MAIN. 
CRDTAB.P11 


SREINSSRRFSNSEK 


Ww 
am 3 VS SS 


S38 
SSu 
eseses 


38 
BOSSES ESTEE EEE ER EEERES EES 


IND eed ed ed ed 
POMPOPSNPONPYNININ NY 


NOUS ~~WNo 
WNININVN--—— 
MENOOALNS 


pn boop per er fer er fer 


a 


MACY11_ 30A(1052 


16=NOV-81 


S ae 


ME NNNNNN 
WWW 
ANN 


sssssesess $238 
Sz 


Re SSN 


BASE 
—— 
WNOSS 
NNOw 


Wwrviror 
IN 


29s 
as 
NN 


ees 
ne 
N 
wW 
™N 


N= WNW 
AN 
Ww 
NN 


Susy SEoas 
Sass Sstss 


o-Coo°o 
NVI~N 


=— 
Nm 
N 
N 


) 
17:16 


001124 


004220 
000340 


000001 
001752 
020200 
001634 
000400 
175466 
001124 


000000 
001752 
175424 
001124 


175372 
023022 


001172 


001126 
175362 


16-NOV-81 wee PAGE 


12-19 


G 3 


CONNECT TEST WITHOUT INTERUPT ENABLE. IDX4 


© RAE EEEEREEERERERERAERERARERERREREREREREREREREREREEEEE 


RELEASE TEST WITHOUT INTERUPT ENABLE. IDX5 


© RERARAREREREEAEKEAEEEREEEEEEREEERERERAEREEREEEEAEEEEREREEEREEEEKEEE 


S15: 


TRTEST 5 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 
8$: 


9$: 


SCOPE 

MOV #10. ,STIMES 
JSR PC, CNTLC 
CLR RO 

MOV #1,aCSR 
MOV KONST , GOOD 
ADD #20201, GOOD 
MOV #0,PSW 
MOV acSR,BAD 
CMP GOOD BAD 
BEQ 

INC RO 

BNE 2$ 

ERROR+6 

BR $ 

MOV #8$,aVvECO 
MOV #340,PSW 
CLR 0 

BIC #REQ, aCSR 
MOV KONST , GOOD 
ADD #20200 G00 
TST DTO. 

BNE 

ADD #400,G00D 
MOV a@CSR.BAD 
CMP GOOD. 

BEQ 5$ 

INC RO 

BNE 4$ 

ERROR+7 

MOV #0,PSW 
MOV KONST , GOOD 
CLR RO 

MOV aCSR,BAD 
CMP GOOD, 

BEQ 7$ 

INC RO 

BNE 6$ 

ERROR+7 

BR 9$ 

MOV (SP)+,RO 
MOV (SP)+°RO 
MOV acsR,BAD 
ERROR+5 

MOV #OOPS ,aVECO 


::D0 10. ITERATIONS 
t1S IT CONTROL C? 


3SET DELAY TIMER 
; CONNECT 
sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 


:DROP PRIORITY 
STORE CONTENTS OF CSR 


: ‘AR 
2BR if CONNECTED 


e 


7SET_ RETURN 
sRISE PRIORITY 
SET DELAY TIMER 


CLEAR REQUEST 
STORE GOOD DATA (SWB ACT,PWR OK,CON) 


:DT03 MODE? 

;BR IF YES 

zADD BRQ IF DTO7 

sSTORE CONTENTS OF CSR 

3 ARE 

sBR IF OK 

;DELAY 

:BR IF NOT DONE 

7BRQ NOT SET OR REQ NOT CLEARED 
sDROP PRIORITY 

sSTORE GOOD DATA (PWR OK) 
sRESET DELAY 

sSTORE CONTENTS OF CSR 
COMPARE 


2BR IF OK 

:DELAY 

2BR IF NOT DONE 

Hy ae SWB ACT NOT CLEARED 


33POP STACK INTO RO 
33POP_STACK_INTO RO 

STORE CONTENTS OF CSR 

ZINTERUPPT DETECTED WITH INTERUPT ENABLE CLRD 
RESET RETURN 
GO TO NEXT TEST 


SEQ 0032 


H 3 





.MAIN. MACY11 30A(1052), 7 i$cNov-81 17: 26 PAGE 12-20 
CRDTAB.P11. 16=NOV=81 17:16 CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE. IDX6 SEQ 0033 | 

819 5 ff RARARAARERAEERREREEREEEEEEAEREEEEREAEEEERAREERERERRREERERREEEEREEE | 

(3) :*TEST 6 CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE. IDX6 

(3) RRA EEEEREEERAEEEEEEEEEAERREREREREREEEEEREEREEEAREREREREREERE | 

(2) 004242 000004 i$16: SCOPE 

(1) 004244 012737 000012 001172 MOV #10. ,STIMES 3:00 10. ITERATIONS | 

820 004252 004737 026620 JSR PC, CNTLC :1S IT CONTROL C? 

822 004256 005000 1$: CLR RO zSET DELAY TIMER 

823 004260 012737 000000 177776 MOV #0,PSW SLOWER PRIORITY 

824 004266 005077 175330 CLR [CLEAR CSR 

825 004272 012777 004524 175324 MOV #8$ ave co SSET RETURN 

826 004300 012737 000340 177776 MOV #34 46,P SRISE PRIORITY 

827 004306 013737 001752 001124 MOV onst & ‘STORE GOOD DATA (SWB ACT,PWR OK,REQ) 

828 004314 062737 920001 001124 ADD #000 e000 

829 004322 005737 001634 TST :DT03 MODE? 

830 004326 001003 BNE th [BR 

831 004330 062737 000400 001124 ADD #400,GO0D SADD BRO 

832 004336 012777 000001 175256 11$: MOV #REQ,aCSR ‘SET REQ (BITO) 

833 004344 017737 175252 001126 28: MOV acSR,BAD [STORE CONTENTS OF CSR 

834 004352 042737 000074 001126 BIC #74 ,BAD SMASK RQO=3 

835 004360 023737 001124 001126 CMP GOOD ,BAD : COMPARE 

836 004366 001403 BEQ 3$ 3BR IF 

837 004370 005200 INC RO " DELAY 

838 004372 001 BNE $ ‘BR IF NOT DONE 

839 004374 104013 ERROR+13 :SWB ACT (BIT13) OR REQ NOT SET 

840 004376 005737 001634 3$: TST :DT03 MODE? 

841 004402 00102 E 5$ [BR IF YES. 

842 004404 013737 001752 001124 MOV KONST , GOOD TSTORE GOOD DATA (SWB ACT,PWR OK,BROQ,REQ) 

843 004412 062737 020401 001124 ADD #20401 , GOOD 

844 004420 005000 CLR RO yRESET DELA 

845 004422 017737 175174 001126 4$: MOV aCSR,BAD + STORE CONTENTS OF CSR 

846 004430 042737 000074 001126 BIC #74,BAD ;MASK K RQO-3 

847 004436 023737 001124 001126 CMP G00) ,BAD 

848 004444 001403 BEQ 5$ BR IF 

B49 004446 005200 INC RO :DELAY | 

850 004450 0013 BNE BR IF NOT DONE 

851 004452 104013 ERROR+13 (BIT8) DID NOT SET 

852 004454 013737 001752 001124 5$: MOV KONST, GOOD STORE cio DATA (TMO,PWR OK) 

853 004462 062737 100000 001124 ADD #100000, GOOD 

854 004470 005000 CLR RO :RESET DELAY 

855 004472 017737 175124 001126 6$: MOV @CSR,BAD [STORE CONTENTS OF CSR 

856 004500 023737 001124 001126 CMP GOOD. BAD : COMPARE 

857 004506 001403 BEQ 7$ ‘BR IF OK 

858 004510 005200 INC RO :DELAY 

859 004512 001367 BNE 6$ ‘BR IF »DOne 

860 004514 104013 ERROR+13 (BIT15) NOT SET 

861 004516 005077 175100 7$: CLR acsR CLEAR conn AND DISCONNECT 

862 004522 07 9$ TEXIT 

863 004524 8$: 

(2) 004524 012600 MOV (SP)+,RO + 3POP STACK INTO RO 

(2) 004526 012600 MOV (SP)+RO POP STACK INTO RO 

864 004530 017737 175066 001126 MOV acsR,BAD :STORE CONTENTS OF CSR 

865 004536 104005 ERROR+5 SINTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 

866 004540 000766 760 CLEAR CSR 

867 004542 012777 023022 175054 9$: MOV #OOPS ,aVECO SRESET RETURN 

868 :GO TO NEXT TEST 
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CRDTAB.P11  16=-NOV-81 17:16 16 CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE. IDX6 SEQ 0034 
870 
871 FARRAR ORAAEEREREEREEEEEEEEEERERAREERERARREREREREREEEEREEEEEERE 
(3) tSTEST 7 RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE. IDX7 
(3) REERAAAEREAAAKEAAAAEAAEEEAERERARAAEAAARAAAEAAAEEAEARAAEAEEEEEEEEERE 
(2) 004550 000004 ié17: SCOP 
(1) 004552 012737 990012 001172 MOV #10. ,$TIMES -DO 10. ITERATIONS 
872 004560 004737 02662 JSR PC, CNTLC tis IT CONTROL C? 
874 004564 005000 1$: CLR RO :SET DELAY TIMER 
875 004566 O12777 000 175026 MOV Me acsr CONNEC 
876 004574 013737 001752 001124 MOV 00D ‘STORE GOOD DATA (SWB ACT.PWR OK,CON,REQ) 
877 004602 062737 020201 002124 ADD #e020'. GOOD 
878 004610 012737 000000 177776 MOV #0,P :DROP PRIORITY 
879 004616 017737 175000 001126 2S: MOV acér’ BAD ‘STORE CONTENTS OF CSR 
880 004624 023737 001124 001126 CMP GOOD. BAD + COMPARE 
831 004632 001404 BEQ 3$ ‘BR IF CONNECTED 
882 004634 005200 INC RO DELAY 
883 004636 001367 “BR IF 
884 004640 104006 ERROR+6 ‘COULD NOT CONNECT 
885 004642 000461 BR SEXIT TES 
886 004644 012777 005010 174752 3$: MOV #8$,aVECO :SET RETURN 
887 004652 012737 000340 177776 MOV #340,PSW ‘RISE PRIORITY 
888 004660 005000 CLR RO sSET DELAY TIMER 
889 004662 042777 000001 174732 BIC #REQ, ACSR [CLEAR REQUEST 
890 004670 013737 001752 001124 MOV KONST , GOOD ‘STORE GOOD DATA (SWB ACT,PUR OK,CON) 
891 004676 062737 020200 001124 ADD #20200, GOOD 
892 004704 005737 001634 TST D103. MODE? 
893 004710 001003 BNE pros ‘BR IF YES 
894 004712 062737 000400 001124 ADD #400, GOOD SADD BRO IF DT07 
895 004720 017737 174676 001126 4$: MOV @CSR.BAD SSTORE CONTENTS OF CSR 
896 004726 023737 001124 001126 CMP GOOD .BAD + COMPARE 
897 004734 001403 BEQ 5$ ‘BR IF OK 
898 004736 005200 INC RO DELAY 
899 004740 001367 BNE 4$ ‘BR IF NOT DONE 
900 004742 104014 ERROR+14 =BRQ NOT SET OR REQ NOT CLEARED 
901 004744 013737 001752 001124 5$: MOV KONST , GOOD :STORE GOOD DATA (TMO,PWR OK) 
902 004752 062737 100000 001124 ADD #100000, GOoD 
903 004760 005000 CLR RO :RESET DELA 
904 004762 017737 174634 001126 6$: MOV @CSR,BAD * STORE CONTENTS OF CSR 
905 004770 023737 001124 001126 CMP GOOD .BAD : COMPARE 
906 004776 001403 BEQ 7$ :BR IF OK 
907 005000 005200 INC RO ‘DELAY 
908 005002 001367 BNE 6$ ‘BR IF NOT DONE 
909 005004 104014 ERROR+14 :TMO NOT SET 
910 005006 0004 7$: BR 9$ EXIT 
911 005010 8$: 
(2) 005010 012600 MOV (SP)+,RO ::POP STACK INTO RO 
(2) 005012 012600 MOV (SP) +-RO *:POP STACK INTO RO 
313 OO eb22 04005 shmendvabinens ERROR+S mae SINTERUBPT DETECTED Ul WITH INTERUPT ENABLE CLRD 
gi4 005024 012777 023022 174572 9$: MOV #OOPS ,aVECO :RE ET RETURN 
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(3) 
(2) 005032 
(1) 005034 
919 005042 
920 
921 005046 
922 005052 
923 005060 
924 005066 
925 005074 
926 005102 
927 005110 
928 005116 
929 005120 
930 005126 
931 005130 
932 005132 
933 005134 
934 005142 
935 005144 
936 005146 
937 005150 
(2) 005150 
(2) 005152 
938 005154 
939 005162 
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941 005166 
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943 005202 
944 005210 
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000012 
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000040 
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174430 


001124 


174374 
177776 
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12-22 
RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE .IDX7 


J FARRAR AREAREREREREAEREEEERERERAAAEEEERERARRERERAEEREREREEEEREREEEE 


fg RARER AEARERERERAERAAAEAEEERERAERAEERRERERAEERREREREREEERERERKEEREEE 


3300 10. ITERATIONS 
21S IT CONTROL C? 


CLEAR CSR 

sRISE PRIORITY 
STORE PRIORITY LEVEL 

STORE ACTUAL PRIORITY INDIACATOR 
SET RETURN 

:SET_ I.E. AND REQ 

WAIT FOR SWB ACT TO APPEAR 

7BR IF NOT THERE 

sLOWER PRIORITY UNTIL INTERUPTED 


ite 7 INDIACATOR 
BR UNTIL DON 
ro DETECTED 


3:POP STACK INTO RO 
23POP STACK INTO RO 
a LEVEL? 


SINTERUPT AT WRONG PRIORITY 
:STORE CONTENTS OF CS 


:STORE GOOD DATA (SWB ACT,.PWR OK,CON,IE.REQ) 


: COMPARE 


3sBR IF OK 
sCONNECT CONDITION FAILURE 
;CLEAR CSR 

sLOWER PRIORITY 


SeTEST 10 CONNECT TEST. IDX8 

TST10: SCOPE 
MOV #10. ,STIMES 
JSR PC,CNTLC 
CLR CSR 
MOV #340,PSW 
MOV R1,GO 
MOV 340.8 
MOV #2$,aVECO 
MOV #101, aCSR 
BIT #20000, aCSR 
BEQ 6 

1$: SUB #40,.PSW 
NOP 
NOP 
NOP 
SUB #40,BAD 
ERROR+10 

2$: 
MOV (SP)+,RO 
MOV (SP)+-RO 
CMP GOOD ,BAD 
EQ 3$ 
ERROR+11 

3$: MOV acSR,BAD 
MOV KONST , GOOD 
ADD #20301, GOOD 
CMP GOOD ,BAD 
BEQ 
ERROR+12 

4$: CLR acsR 
CLR PSW 

5$: MOV #OOPS ,aVECO 


RESET RETURN 
:GO TO NEXT TEST 


SEQ 0035 





.MAIN, MACY11 30A(1052) 16-NOV-81 17: 26 PAGE 12-23 
CRDTAB.P11 16-NOV-81 17:16 T10 CONNECT TEST.1DX8 SEQ 0036 

95 

gee FRRRARAEAAAERAAREREREERAEEEREEEREREAKRERREEREEEEEEEREEERREEERREEE 

(3) TEST 11 RELEASE TEST .IDX9 

(3)  RERRRRARRRERERERERREEEEERERREEREARRERERREREREEEEEEREREEREE EERE 

(2) 005240 000004 $111: SCOPE 

(1) 005242 012737 ©C00012 001172 MOV #10.,STIMES 7:D0 10. ITERATIONS 

994 005250 004737 026620 JSR PC, CNTLC :1S IT CONTROL C? 

956 005254 005000 1$: CLR RO zSET DELAY TIMER 

957 005256 012777 000001 174336 MOV # acs [CONNECT 

958 005264 013737 001752 001124 MOV KONST , GOOD 

959 005272 062737 020201 001124 ADD #20201, GOOD zSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
005300 012737 000000 177776 MOV #0,P ‘DROP PRIORITY 

961 005306 017737 174310 001126 2$: MOV acsr, SBAD ‘STORE CONTENTS OF CSR 

962 005314 023737 001124 001126 CMP GOOD .BAD : COMPAR 

963 005322 001404 BEQ 3$ 7BR IF CONNECTED 

964 005324 005200 INC RO :DELAY 

965 005326 001367 BNE 2$ ‘BR IF NOT DONE 

966 005330 104006 ERROR+6 : COULD NOT CONNECT 

967 005332 000422 BR 7$ 3EXIT TEST 

968 005334 005737 001634 3$: TST DT03 DT03 MODE? 

969 005340 001420 BEQ Bh ‘BRe 

970 005342 005000 CLR RO sSET DELAY TIMER 

971 005344 042777 000061 174250 BIC #REQ, aCSR SCLEAR REQUEST 

972 005352 013737 001752 001124 5$: MOV KONST , GOOD :STORE GOOD DATA (PWR OK) 

973 005360 017737 174236 001126 6$: MOV a@CSR BAD ‘STORE CONTENTS OF CSR 

974 005366 023737 001124 001126 CMP GOOD ,BAD : COMPARE 

975 005374 001401 BEQ 7$ [BR IF OK 

976 005376 104015 ERROR+15 SRELEASE CONDITIONS NOT MET 

977 005400 000446 7$: BR 10$ [GO TO NEXT TEST 

978 005402 012777 005456 174214 8$: MOV #9$,avECO ‘SET RETURN 

979 005410 052777 000100 174204 BIS #100, aCSR ‘SET I.E. 

980 005416 042777 000001 174176 BIC #1,aCSR ‘CLR REQ 

981 005424 004737 022010 JSR PC WAITOS :G0 WAIT 
005430 013737 001752 001124 MOV KONST , GOOD :LOAD GOOD 

983 005436 062 000 001124 ADD #100,G00D 

984 005444 017737 174152 001126 MOV acSR,BAD 

985 005452 104010 ERROR+10 :NO INTERUPT 

986 005454 000420 BR 10$ 

987 005456 012706 001100 9$: MOV #STACK, SP peter STACK 

988 005462 013737 001752 001124 MOV KONST, GOOD ‘LOAD GOOD 

989 005470 062737 000100 001124 ADD #100, GOOD 

990 005476 017737 174120 001126 MOV CSR, 

991 005504 023737 001124 001126 CMP GOOD . BAD 

992 005512 001401 BEQ 10$ 

993 005514 104015 ERROR+15 

994 005516 005077 174100 10$: CLR acsR :CLEAR AND DISCONNECT 

995 005522 012777 023022 174074 MOV #OOPS ,aVECO *RESET RETURN 


L 3 
MAIN. MACY11 ene ee 17: 3B PAGE 12-24 


CRDTAB.P11_ —- 16=NOV-81 1 RELEASE TEST .1DX9 SEQ 0037 

997 

998 FRAAARAAAAAERAAAEEAAAEEAEEREREREREERAEREERERERAEEREEEREERAA AREER EEERE 
(3) TEST 12 CONNECT FAILURE TEST.1DX10 

(3) FERRARA RAARAEEAEERRAERAREEREEERAREREEAERRARAERARERAEREAEREREERRRAKEEEE 
(2) 005530 000004 18112: SCOPE 

(1) 005532 012737 000012 001172 MOV «#10. .$TIMES D0 10. ITERATIONS 

1222 005540 004757 026620 JSR —- PC, CNTLC :1S 1T CONTROL C? 

1001 005544 005077 174052 CLR —acsR CLEAR CSR 

1002 005550 012737 000340 177776 MOV «#340, PSw RISE PRIORITY 

1003 005556 005000 CLR ~—s_ RO :SET DELAY TIMER 

1004 005560 012777 005672 174036 MOV  #2$, aVECO SET RETURN 

1005 005566 013737 001752 001124 MOV —_—«KONST,, GOOD 

1006 005574 062737 100100 001124 ADD -#100160,G00D = ; STORE GOOD DATA (TMO,PWR OK,IE) 

1007 005602 005737 001634 TST —- DTO3 :DT03 MODE? 

1008 005606 001003 BNE 68 BR IF DTO3 

1009 005610 062737 000400 001124 ADD «#400, GOOD :ADD BRO IF D107 

1010 005616 012777 000101 173776 6$: MOV #101. aCSR SET 1.£. AND REQ 

1011 005624 017737 173772 001126 1$: MOV -— @CSR: BAD STORE CONTENTS OF CSR 

1012 005632 023737 001124 001126 CMP GOOD. BAD > COMPARE 

1013 005640 001404 BEQ3Os«é1:8 :BR IF OK 

1014 005642 005200 INC ; 

1015 005644 001367 BNE ‘BR IF NOT DONE 

1016 005646 104016 ERROR+16 :TMO NOT SET 

1017 005650 000414 ; 

1018 005652 005000 eh tie & RESET DELAY 

1019 005654 012737 000000 177776 MOV —s- #0, PSw [DROP PRIORITY 

1020 005200 228: INC RO :DELAY 

1021 005664 001376 BNE —_22$ BR IF NOT DONE 

1022 005666 104010 ERROR+10 :NO_INTERUPT DETECTED 

1023 005670 000404 BR 5$ ZEXIT 

1024 005672 2s: 

(2) 005672 012600 MoV (SP)+,RO ::POP STACK INTO RO 

(2) 005674 012600 MOV (SP) +-RO :;POP STACK INTO RO 

1025 005676 005077 173720 4$: CLR acsR LEAR CSR 

1026 005702 012777 023022 173714 5$: MOV § #OUPS,aVECO = : RESET RETURN 

1027 [G0 TC NEXT TEST 
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16-NOV-81 17:26 PAGE 
:16 T12 


s*TEST 13 


SE RAAARERERERAEEEUREEEERERERERERAEAEEREREEREREAEEREEAREEEEREREREREERE 


T$113: 


1$: 


2$: 


3$: 


4$: 


41$: 


5$: 


51$: 


6$: 


7$: 


12-25 


m 3 


CONNECT FAILURE TEST.1IDX10 


SCOPE 
MOV #10. ,STIMES 
PC,CNTLC 


MOV KONST , GOOD 
ADD #20201 ,GOOD 
#0,PSW 


CMP GOOD ,BAD 
BEQ 3$ 
INC RO 

E 2$ 
ERROR+6 
B 7$ 
MOV #6$,aVvECO 
MOV #340,PSwW 
CLR R 
MOV #100,aCSR 
MOV acSR,BAD 
MOV T,GOOD 


KONS 
ADD #100100,GO0D 
DT03 
41$ 
ADD #400, GOOD 
CMP GOOD. BAD 
5$ 

INC RO 


MOV KONST, GOOD 
ADD #100160, Go0D 


LR R 
MOV #0,PSW 
RO 


INC 

BNE 51$ 
ERROR+10 
BR 7$ 


MOV (SP)+,RO 
MOV (SP)+,RO 
MOV #OOPS ,aVECO 


3300 10. ITERATIONS 
1S IT CONTROL C? 


SET DELAY TIMER 
; CONNECT 


STORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
; PRIORITY 


: DROP 
STORE CONTENTS OF CSR 


:BR y CONNECTED 
BR IF NOT DONE 
COULD NOT CONNECT 
sEXIT TEST 

SET RETURN 

RISE PRIORITY 
:SET DELAY TIME 


R 
CLEAR REQUEST AND SET IE 
STORE CONTENTS OF CSR 


STORE GOOD DATA(TMO,PWR OK,IE) 
3DT03 MODE? 

3BR_IF DT03 

sADD BRQ IF DT07 

; COMPARE 

:BR IF OK 


e L Y 

:BR_IF NOT DONE 
:TMO_NOT SET 
sEXIT 


STORE GOOD DATA (TMO,PWR OK,IE) 
RESET DELAY 
DROP PRIORITY 


7 L Y 
:BR IF NOT DONE 
ore 


33POP STACK INTO RO 
3:POP_STACK INTO RO 
RESET RETURN 

:GO TO NEXT TEST 





SEQ 0038 
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-MAIN. MACY11 FOACIO3¢) — 17: 6 PAGE 12-26 
CRDTAB.P11 16=NOV-81 113 RELEASE TEST WITHOUT BUSS MASTERSHIP.IDX11 SEQ 0039 


1073 
1074 
Ihe RARER RARE AREER AEE RARER AREER ERA ER AREER ERRERREEE 
(3) tS TEST 14 RESET (RST) TEST.IDX12 
(3) PARALLEL AALAALALAALAAACARAASAAALEEE EASES ESET EEE EEE EER REARS GS 
(2) 006154 000004 $114: SCOPE 
(1) 006156 012737 000012 001172 MOV #10. ,$TIMES :;D0 10. ITERATIONS 
1076 006164 004737 026620 JSR PC, CNTLC :1S IT CONTROL C? 
1078 006170 005737 001214 TST $PASS sFIRST PASS? 
1079 006174 001562 BEQ 5$ [SKIP TEST ON FIRST PASS 
1080 006176 005737 001754 TST DEVCON ‘RESET IN NEUT 
1081 006202 100557 BMI *BR=NO RESET In heuT 
1082 006204 005737 001636 TST DEVAD [1S A DEVICE AGISTER PRESENT? 
1083 006210 001554 BEQ 5$ SEXIT IF NOT 
1084 006212 005737 001642 TST DEVRC SRESETABLE BITS PRESENT? 
1085 006216 0015 BEQ 5$ *BR=NO SO EXIT 
1086 006220 012737 000000 177776 MOV #0,PSW ‘DROP PRIORITY 
1087 006226 012777 000001 173366 MOV #REQ,ACSR + CONNECT 
1088 006234 105777 173362 1$: TSTB = aC SR + CONNECTED? 
1089 006240 100417 BMI 2$ ‘BR IF YES 
1090 006242 005777 173354 TST acsR : TIMEOUT? 
1091 006246 100372 BPL 1$ ‘BR IF NOT 
1092 006250 017737 173346 001126 MOV aCSR,BAD ‘STORE CONTENTS OF CSR 
1093 006256 013737 001752 001124 MOV KONST , GOOD 
1094 006264 062737 020201 001124 ADD #20201 ,GOOD sSTORE GOOD DATA(SWB ACT,PWR OK,CON,REQ) 
1095 006272 104006 ERROR+6 SCOULDN'T CONNECT 
1096 006274 000137 006542 JMP rt} 
1098 006300 004737 026562 2$: JSR PC, CKADR :GO CHECK DEVICE ADDRESS EXIST? 
1099 006304 005737 026560 TST FLAG SIF FLAG=1, TRAPPED 
1100 006310 001403 BEQ 20$ 
1101 006312 104027 ERROR+27 
1102 006314 000137 006542 JMP 5$ EXIT 
1103 006320 20S: 
1104 006320 013777 001640 173310 MOV . DEVRW,@DEVAD  ;SET READ/WRITE BITS IN EXTERNAL DEVICE REGISTER 
1105 006326 017737 173304 001126 MOV @DEVAD ,BAD STORE CONTENTS OF DEVAD 
1106 006334 005137 001640 COM DEVRW : COMPLEMENT 
1107 006340 043737 001640 001126 BIC DEVRW,BAD [CLEAR OUT BiTs NOT UNDER TEST 
1108 006346 005137 001640 COM DEVRW RESTORE ORIGINAL PATTERN 
1109 006352 023737 001640 001126 CMP DEVRW,BAD :DID THEY SET? 
1110 006360 00140 BEQ F YES 
1111 006362 10401 | ERROR+17 {COULDN' T SET READ/WRITE BITS IN DEVAD 
1112 006364 000466 BR 5$ EXIT 
1113 006366 052777 001000 173226 3%: BIS #1000, aCSR *SET RST 
1114 006374 012737 000002 022062 MOV #2, TOCK :SET UP FOR 22MSEC COUNT 
1115 006402 004737 022022 JSR PC WAIT 
1116 006406 032777 001000 173206 31%: BIT #1600.acsr iSTILL SET? 
1117 006414 001430 BEQ 4$ *BR=NO 
1118 006416 104401 006424 TyPe  ,45$ isTYPE ASCIZ STRING 
(1) 006422 000424 BR 4$ :GET OVER THE ASCIZ 
(1) ::65$: .ASCIZ <200>/ERROR! RST(BIT9) DIDN'T CLEAR IN TIME./ 
(1) 006474 64$: 
1119 006474 90000 g HALT 
1120 006476 017737 173134 001126 4$: MOV aDEVAD,BAD :STORE CONTENTS OF DEVAD 
1121 006504 033737 001642 001126 BIT DEVRC,BAD “RESET CONDITIONS MET? 


tse essen 


SS cen cee nr 






B 4 | 
-MAIN. MACY11_ 30A(1052) Tgenov~81 17:26 PAGE 12-27 
CRDTAB.P11 =: 16=NOV=-87 17:16 T14 RESET (RST) TEST.IDX12 SEQ 0040 
32 006 001413 BEQ 5$ BR IF YES 
006 005 09 INC RO ;WAIT AWHILE 
4 006 001 BNE 4$ 
5 006 013737 001642 001124 MOV DEVRC ,GOOD SAVE DEVRC 
$ 006 003137 001124 COM GOOD 
27 006 043737 001124 001126 BIC GOOD ,BAD HI LITE BAD BITS 
28 006 104021 ERROR+21 sRESET (RST) DIDN'T WORK 
29 006 005077 173054 5$: CLR acsR ;SHUT DOWN AND GO TO NEXT TEST 
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ATEST 15 


17: f, PAGE 12-28 
RESET (RST) TEST.IDX12 


FRRRAAAAEEREAEREEREREREREREREREEEEEEERERREREREEREERERREERERERREE 


RESET HOLD (HLD) TEST.IDX13 


SRRREAEERERERERRAEREREREERERERERERREEREREREEREEREREREREREEREEEREEEE 


:DO 10. ITERATIONS 
ti 1T CONTROL C? 


SCOPE 

MOV #10. gSTIMES 
JSR PC, CNTLC 
TST DT03 

BNE 3$ 

MOV #0,PSW 
MOV WREQ,ACSR 
TSTB = aC SR 

BM1 $ 

TST acsR 

BPL 1$ 

MOV acSR,BAD 
MOV ONST,G 


K OOD 
ADD #20201 ,GOOD 


3$ 

IS #2,aCSR 
RESET 

OV @aCSR,BAD 
BIT #200,BAD 
BNE 3$ 
ERROR+20 

CLR acsR 


:BR IF YES 
CONN PRIORITY 
ECT 


TBR IF NOT 

;STORE CONTENTS OF CSR 

STORE GOOD DATA(SWB ACT,PWR OK,CON,REQ) 
;COULDN’T CONNECT 


:SET HLD(BIT1) 

ESET 
STORE CONTENTS OF CSR 
3ST t CONNECTED? 


F YES 
SHLD DIDN'T DISABLE RESET 
SHUTDOWN AND GO TO NEXT TEST 


ee ee ee ee ee LT Se eee) 
SSSFES SSS SS 4 
NOUSWNOOY yey -OoONoe 
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dD 4 
MACY11_ 30A(1052) _16-NOV-81 17:26 PAGE 12-29 
-P11 16=NOV-81 17:16 T15 RESET HOLD (HLD) TEST.IDX13 SEQ 0042 | 


2 RRR AEEEREEREREEREERERERERERERERRARRAEREAEERAEREREKEEERERRERE 


T*TEST 16 HI-SPEED SWITCHING TEST.1IDX14 
© RARER ERERAEAEAEAEAEEAEEEEEKEREREREEEEREREKE 
006702 T5116: SCOPE 
006704 012737 990012 001172 MOV #10. ,STIMES ::D0 10. ITERATIONS 
006712 094737 02662 JSR PC, CNTLC 71S IT CONTROL C? 
006716 012701 001750 MOV #1000. ,R1 zSET COUNTER 
006722 012737 000000 177776 11$: MOV #0,PSW ‘DROP PRIORITY 
006730 012777 000001 172664 MOV WREQ,aCSR + CONNECT 
006736 105777 172660 1$: TSTB ~— aC SR + CONNECTED? 
006742 100416 BMI 2$ “BR IF YES 
006744 005777 172652 TST acsR TIMEOUT? 
006750 100372 BPL 1$ <BR IF NOT 
006752 017737 172644 001126 MOV acsR,BAD *STORE CONTENTS OF CSR 
006760 013737 001752 001124 MOV KONST , GOOD 
006766 062737 020201 001124 ADD #20201, GOOD sSTORE GOOD DATA(SWB ACT,PWR OK,CON,REQ) 
006774 104006 ERROR+6 ‘COULDN'T CONNECT 
006776 000422 BR $ TEXIT 
7000 042777 000001 172614 2$: BIC #1,aCSR SRELEASE CONNECTION 
7 013737 001752 001124 MOV KONST , GOOD ‘STORE GOOD DATA(PWR OK) 
007014 005000 CLR RO :SET DELAY TIMER 
007016 017737 172600 001126 3$: MOV aCSR.BAD ‘STORE CONTENTS OF CSR 
007024 023737 001124 001126 CMP GOOD ,BAD : COMPARE 
007032 001402 BEQ ‘BR IF OK 
007034 104015 ERROR+15 SRELEASE CONDITIONS NOT MET 
007036 000402 BR 5$ TEX 
007040 005301 4$: DEC R1 *COUNT A SUBPASS 
007042 001327 BNE 11$ :BR IF CONTINUE 
007044 005077 172552 5$: CLR acsR SSHUTDOWN AND GO TO NEXT TEST 
FERRARA RERRERAREEERERERERREREREREERERERERERRERERERERRRRERE RE 
SeTEST 17 RESET=IN-NEUTRAL TEST.1DX15 
SAAR AERRRARAERERRREEREREEREREEREEREEEEEAREEEEREREREERERREREERERER 
007050 000004 T5117: SCOPE 
007052 012737 000001 001172 MOV #1,STIMES ::D0 1 ITERATION 
007060 005737 001636 TST DEVAD z1S A DEVICE REGISTER PRESENT? 
007064 00101 BNE 15$ =CONTINUE TEST IF PRESENT 
007066 000137 007540 om JMP 12$ :G0 EXIT 
007072 004737 026562 JSR PC, CKADR sCHECK IF DEVICE ADDRESS EXIST? 
007076 005737 026560 TST FLAG ‘IF FLAG=1;TRAP OCCURED 
007102 001437 BEQ 2$ ‘BR:NO TRAP 
007104 104027 ERROR+27 
007106 000137 007540 JMP 12 :G0 EXIT 
007112 005737 001642 15$: TST DEVRC ‘ANY RESETABLE BITS? 
007116 901002 BNE 14$ ;BR=YE 
007120 000137 007540 JMP 12$ 'GO EXIT 
007124 012737 000000 177776 14$: MOV 4#0,PSW ‘DROP PRIORITY 
007132 012777 000001 172462 MOV #REQ,aCSR > CONNECT 


E 4 
-MAIN. MACY11_ 30A(1052) _16-NOV-81 17:26 PAGE 12-30 
CRDTAB.P11 16=NOV-81 17:16 T17 RESET=IN“-NEUTRAL TEST.IDX15 SEQ 0043 


1204 007140 105777 172456 1$: TSTB acsr : CONNECTED? 
1205 007144 10075 BMI! 13$ “BR IF YES 
1206 007146 005777 172450 TST acsr : TIMEOUT? 
1207 00715 10037¢ BPL 1$ ‘BR IF NOT 
1208 007154 01773 172442 001126 MOV a@CSR,BAD :STORE CONTENTS OF CSR 
1209 007162 013737 001 001124 MOV KONST , GOOD 
1g10 007170 062737 020201 001124 ADD #20201 , GOOD ZSTORE GOOD DATA(SWB ACT,PWR OK,CON,REQ) 
1211 007176 104006 ERROR+6 SCOULDN'T CONNECT 
i2l2 907200 000557 - BR 12$ EXIT 
1214 007202 013777 001640 172426 MOV DEVRW,aDEVAD ;:SET READ/WRITE BITS IN EXTERNAL DEVICE REGISTER 
1215 007210 017737 172422 002126 MOV @DEVAD BAD [STORE CONTENTS OF DEVAD 
1216 007216 005137 001640 COM DEVRW ‘COMPLEMENT R/W BITS 
1217 007222 043737 001640 001126 BIC DEVRW,BAD :CLEAR OUT BITS NOT UNDER TEST 
1218 007230 005137 001640 COM DEVRW TRESTORE ORIGINAL PATTERN 
1219 007234 023737 001640 001126 CMP DEVRW,BAD ‘DID THEY SET 
1220 007242 00140¢ BEQ ‘BR IF YES 
1221 007244 10401 ERROR+17 SCOULDN'T SET READ/WRITE BITS IN DEVAD 
1222 007246 000534 BR 12$ EX 
1223 007250 005077 172346 3$: CLR acsrR [DISCONNECT 
1224 007254 105777 172342 4$: TSTB = aCSR ‘DONE? 
1225 007260 100775 BMI 4$ :BR=NO 
1226 007262 012737 000000 177776 MOV #0,PSW ‘DROP PRIORITY 
1227 007270 012777 000061 172324 MOV #REQ,ACSR = CONNECT 
1228 007276 105777 172320 5$: TSTB = @CSR : CONNECTED? 
1229 007302 100416 BMI 6$ ‘BR IF YES 
1230 007304 005777 172312 TST acsR : TIMEOUT? 
1231 007310 100372 BPL S$ ‘BR IF NOT 
1232 007312 017737 172304 001126 MOV a@CSR,BAD SSTORE CONTENTS OF CSR 
1233 007320 013737 001752 001124 MOV KONST, GOOD 
1234 007326 062737 020201 001124 ADD #20201 , GOOD ZSTORE GOOD DATA(SWB ACT,PWR OK,CON,REQ) 
1235 007334 104 ERROR+6 SCOULDN'T CONNECT 
1236 007336 0005 BR 12$ EXIT 
1237 007340 017737 172272 001126 6$: MOV @DEVAD BAD ‘STORE CONTENTS OF DEVAD 
1238 007346 033737 001642 001126 BIT DEVRC,BAD SRESET CONDITIONS MET? 
1239 007354 001403 BEQ 7 “BR=YES 
1240 007356 012702 177777 MOV #~-1,R2 [SET R2 FOR NO RESET 
1241 007362 000401 BR 4% 
124g 007364 00500¢ 7$: CLR R2 :SET R2 FOR RESET 
1243 007366 005737 001214 8$: TST $PASS ‘FIRST PASS? 
1244 007372 001056 BNE 11$ SBR= 
1245 007374 005702 TST R2 SCHECK RESET CONDITION 
1246 007376 001427 BEQ 9$ [BR=RESET 
1247 007400 104401 007406 TYPE 65$ t;TYPE ASCIZ STRING 
(1) 007404 000423 BR 4$ *:GET OVER THE ASCIZ 
(1) 2:65$: .ASCIZ <200>/THIS DT07 INHIBITS RESET~IN-NEUTRAL./ 
(1) 007454 64$: ’ 
1248 007454 000422 BR 10$ 
1249 007456 9$: 
(1) 007456 104401 007464 TYPE 67$ z:TYPE ASCIZ STRING 
(1) 007462 000417 BR 6$ - GET OVER THE ASCIZ 
(1) 2:67$: .ASCIZ <200>/THIS DTO7 RESETS IN NEUTRAL./ 
(1) 007522 , 66$: 
1250 007522 010237 001754 10$: MOV R2,DEVCON ;STORE CONDITION 
1251 007526 000404 BR 
1252 007530 020237 001754 11$: CMP R2,DEVCON ;HAS IT CHANGED? 


= ened 
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12$: 


F 4 
RESET=IN-NEUTRAL TEST.IDX15 
BEQ 12$ ;BR=NO 
ERROR+22 ;RESET=IN-NEUTRAL — HAS CHANGED 
CLR acsrR CLEAR AND DISCONNECT 


SEQ 0044 


-MAIN. MACY11_ 30A(1052) _16-NOV-81 
CRDTAB.P11 16-NOV-81 17:16 


1259 


17:26_ PAGE 
T17 


G 4 
12-32 
RESET=IN-NEUTRAL TEST. IDX15 


1260 
1261 007544 012737 002526 021652 MONEND: MOV WRESTRT,SRTNAD ;SET RETURN 
021552 JMP SEOP 


1262 007552 000137 
1263 


G0 DO END PASS 


SEQ 0045 


ee 


«MAIN. MACY11 30A(10 


52) _16-NOV-81 17:26 PAGE 12-33 
CRDTAB.P11 16-NOV-81 17:16 


SEQ 0046 — 
1265 .SBTTL 
1267 .SBTTL MULTIPORT TEST 
1269 007556 MULPRT : 
1270 007556 004737 026620 JSR PC, CNTLC :1S IT CONTROL C? 
1271 007562 005737 026426 TST PARFLG [CHECK FOR PARAMETERS 
ere 007566 100404 BMI 1$ *BR=YE 
1273 007570 004737 026620 JSR PC, CNTLC t1$ IT CONTROL C? 
1274 007574 004737 024756 JSR PC -PARIN 760 INPUT PARAMETERS 
1275 007 012737 001000 001726 1$: MOV #1000, CYCLE :SET COUNTE 
1276 007606 005737 001754 TST DEVCON “RESET IN NEUTRAL OPTION USED? 
1277 007612 001003 BNE 2$ ‘BR= 
1278 007614 005037 001756 CLR TRIN ‘SET FLAG FOR TEST 
1279 007620 000403 BR 2$+6 CON 
1280 007622 012737 177777 001756 2$: MOV #-1, TRIN ‘SET FLAG FOR NO TEST 
1281 007630 005737 001634 TST DT03 :DT03 MODE? 
1282 007634 001404 BEQ 3$ *BR=DT07 MODE 
1283 007636 004737 026620 JSR PC, CNTLC t1$ IT CONTROL C? 
1284 007642 000137 012762 JMP MULDT3 :GO DO DTO3 MULTIPORT 
1285 007646 012777 023022 171750 38: MOV #OOPS , aVECO ?SET RETURN 
1286 007654 012777 000340 171744 MOV #340, avEC2 ‘SET LEVEL 
1287 007662 004737 022320 JSR PC, SEQMAK *GO CONSTRUCT SEQUENCER 
1288 007666 004737 022666 JSR PC; SEQINT SINIT. SEQUENCER 
1289 007672 012737 000000 177776 MOV #0.PSW ‘DROP PRIORITY 
1290 007700 023705 001644 CMP PORTNO,RS [MASTER OR SLAVE? 
1291 007704 001072 BNE SLAVE *BR=SLAVE 
1292 706 012737 000632 022062 MOV #632, TOCK ‘SET CLOCK FOR 5 SEC 
1293 007714 004737 022022 JSR PC,WAIT 
1294 007720 000407 BR MASTER :G0 TO MASTER CODE AFTER SYNC WAIT 
1295 007722 023705 001644 DISPAT: CMP PORTNO,RS zMY TURN AS MASTER? 
1296 007726 001404 BEQ MASTER SBR=YES 
1297 007730 004737 026620 JSR PC, CNTLC ‘1S IT CONTROL C? 
1298 007734 000137 010072 JMP SLAVE 'GO BE SLAVE 
1299 007740 MASTER: 
1300 007740 004737 026620 JSR PC,CNTLC :1S IT CONTROL C? 
1301 007744 004737 022430 JSR PC ,MASMEN :GO MAKE MASTER MENU 
1302 007750 012737 000001 022062 MOV #1.TOCK 
1303 007756 004737 022022 JSR PC. WAIT 
1304 007762 004737 021674 JSR PC. CONNEC :GO0 CONNECT 
1305 007766 005037 001722 1$: CLR CURF UN S INSURE NO EXTRANEOUS BITS PRESENT 
1306 007772 116437 000001 001722 MOVB 1(R4),CURFUN GET CURRANT FUNCTION 
1307 010000 005037 001724 CLR CURID *CLEAN IT OUT 
1308 010004 111437 001724 MOVB  (R4), CURID ‘GET CURRANT ID 
1309 010010 000241 CLC 
1310 010012 006137 001722 ROL CURFUN :DOUBLE IT 
1311 010016 012705 012746 MOV ATABM-2 ,R3 ‘LOAD BASE ADDRESS 
131¢ 010022 063703 001722 ADD CURFUN,R3 ADD 
1313 010026 011303 MOV . ‘GET ACTUAL ADDRESS 
1314 010030 004713 JSR 3 : T 
1315 010032 005724 TST (R4)+ ‘STEP THRU MENU 
1316 010034 022714 177777 CMP #-1, (R4) ‘DONE MENU? 
1317 010040 001352 BNE *BR=NO 
1318 010042 004737 022710 JSR PC,SEQSTP *GO STEP SEQUENCER 
1319 010046 005337 001726 DEC cYCLe : COUNT 
1320 010052 001402 BEQ 2$ *BR IF DONE 


-MAIN. MACY11 30A(1052) _16-NOV-81 17:26 PAGE 12-34 
CRDTAB.P11 16-NOV-81 17:16 MULTIPORT TEST SEQ 0047 | 


1321 010054 000137 007722 JMP DISPAT :GO0 START AGAIN 
1328 010060 012737 007556 021652 2$: MOV WMULPRT,SRTNAD :SET UP RETURN 
1323 010066 000137 021554 JMP SEOP+2 :GO DO END PASS 
1324 010072 004737 032516 SLAVE: JSR PC, SALMEN :GO MAKE SLAVE MENU 
1325 910076 004737 022064 JSR PC. SYNCUP :GO SYNCUP! 2 MINUTE TIME OUT 
1326 10102 905037 001722 1$: CLR CURF UN [CLEAN IT 
1327 010106 116437 990901 001722 MOVB  1(R4),CURFUN :GET CURRANT FUNCTION 
1328 010114 005037 001724 CLR CURID : T 
1329 010120 111437 001724 MOVB  (R4),,CURID ‘GET CURRANT ID 
1330 010124 000241 CLC 
1331 010126 006137 001722 ROL CURFUN :DOUBLE IT 
1332 010132 912703 012746 MOV #TABM-2,R3 [LOAD BASE ADDRESS 
1333 010136 063703 001722 ADD CURFUN,R3 ZADD OFFSET 
1334 010142 011303 MOV aR3,R3 :GET ACTUAL ADDRESS 
1335 010144 004713 JSR PC, aR3 760 DO IT 
1336 010146 005724 TST (R&)+ :STEP THRU MENU 
1337 010150 022714 177777 CMP #-1,(R4) [DONE MENU 
1338 0101%. 001352 BNE 1$ *BR=NO 
1339 010156 004737 022710 JSR PC,SEQSTP *GO STEP SEQUENCER 
1340 010162 005337 001726 DEC CYCLE COUNT 
1341 010166 001402 3 BEQ *BRIF DONE 
1348 010170 000137 007722 JMP DISPAT :GO START AGAIN 
1343 010174 012737 007556 021652 2: MOV WMULPRT,SRTNAD :SET UP RETURN 
1348 010202 000137 021554 JMP SEOP+2 :G0 DO END PASS 
1346 
147 ZEXTERNAL CONNECT REQUEST REJECTED 
1349 010206 FUNCT1: 
1350 010206 004737 026620 JSR PC,CNTLC :IS IT CONTROL C? 
1351 010212 004737° 021674 JSR PC; CONNEC 60 T 
1352 010216 004737 021732 JSR PC. CONID :GO CONVERT SLAVE ID 
1353 010222 012777 010362 171374 MOV #1$, avECO [SET RETURN 
1354 010230 112777 000101 171364 MOVB #101.aCSR TENABLE INTERUPT 
1355 010236 005000 CLR RO *SET TIMER 
1356 010240 005200 INC RO TI 
1357 010242 001376 BNE 72 ‘BR IF NOT DONE 
1358 010244 104401 010252 TYPE 65$ ::TYPE ASCIZ STRING 
11) 010250 000434 BR 4$ *:GET OVER THE ASCIZ 
(1 nal 11658: ~ASCIZ <200>/ERROR1A! NO EXTERNAL REQUEST INTERUPT DETECTED. CSR= / 
1359 010342 017737 171254 001126 MOV acCSR,BAD ZSAVE CSR 
1360 010350 013746 001126 MOV BAD, -(SP) +;SAVE BAD FOR TYPEOUT 
(1) 010354 104402 TYPOC ':G0 TYPE--OCTAL ASCII(ALL DIGITS) 
1361 010356 000000 HALT 
1362 010360 000776 BR 72 
1363 010362 1$: 
(2) 010362 012600 MOV (SP)+,RO z:POP STACK INTO RO 
(2) 010364 012600 MOV (SP)+.RO ::POP STACK INTO RO 
1364 010366 017737 171230 001126 MOV acCSR,BAD :STORE CONTENTS OF CSR 
1365 010374 032737 010000 001126 BIT #10060, BAD sMAKE SURE EXT INT IS SET 
1366 010402 001036 BNE $ 7BR = OK 
1367 010404 104401 010412 TYPE 67$ ::TYPE ASCIZ STRING 
(1) 010410 000426 BR ra 3 *:GET OVER THE ASCIZ 
(1) 3:67$: .ASCIZ <200>/ERROR1B! EXTERNAL INTERUPT NOT SET. CSR= / 
(1) 010466 66$: 
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CRDTAB.P11 — 16-NOV-81 17 MULTIPORT TEST SEQ 0048 
1368 010466 013746 001126 MOV —- BAD, =( SP) ;:SAVE BAD FOR TYPEOUT 
(1) 010472 104402 TYPOC 360 TYPE=-OCTAL ASCII(ALL DIGITS) 
1369 010474 000000 HALT 
1370 010476 000776 BR .=2 
1371 010500 033737 001730 001126 28: BIT COVID.BAD CORRECT SLAVE 1D? 
137@ 010506 001042 BNE $ :BR=YES 
1373 010510 104401 010516 TYPE 698 3: TYPE ASCIZ STRING 
(1) 010514 000432 BR 8$ ::GET OVER THE ASCIZ 
» beat i998: -ASCIZ <200>/ERRORIC:! EXTERNAL REQUEST FROM WRONG PORT. CSR= / 
1374 010602 013746 001126 MOV _—- BAD, =( SP) :SAVE BAD FOR TYPEOUT 
(1) 010606 104402 TYPOC ::G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
1375 010610 000000 HALT 
1376 010612 000776 BR .-2 
1377 010614 012777 000101 171000 38: MOV «#101, acSR CLEAR EXT INT 
1378 010622 012777 023022 170774 MOV  #OOPS,aVECO =; RESET RETURN 
1379 010630 005037 177776 CLR = PSW SLOWER PRIORITY 
1380 010634 000207 RTS 
1381 
1382 
1383 ZEXTERNAL REQUEST IGNORED 
1385 010636 nl FUNCT2: 
1386 010636 004737 026620 JSR —- PC, CNTLC 31S 1T CONTROL C? 
1387 010642 004737 021674 JSR ——- PC CONNEC : 
1388 010646 004737 021732 JSR PC. CONID GO CONVERT SLAVE ID 
1389 010652 012777 011144 170744 MoV =: #18, aVECO :SET RET 
1390 010660 005737 001756 TST —«TRIN CAN WE TEST RESET IN NEUTRAL? 
1391 010664 001052 BNE 6 ZBR= 
1392 010666 013777 001640 170742 MOV -DEVRW.@DEVAD =; LOAD READ/WRITE BITS 
1393 010674 023777 001640 170734 CMP -DEVRW.@DEVAD LOADED? 
1394 010702 001443 BEQ $ :BR=YES 
1395 010704 104401 010712 TYPE ,65$ ::TYPE ASCIZ STRING 
(1) 010710 000432 BR 4$ ::GET OVER THE ASCIZ 
iE laien i758: -ASCIZ <200>/ERRORZF! COULDN'T LOAD EXTERNAL DEVICE REGISTER.../ 
1396 010776 013746 001636 MOV DEVAD.=(SP) —« ; SAVE_DEVAD FOR TYPEOUT 
(1) 011002 104402 TYPOC 3:60 TYPE--OCTAL ASCII(ALL DIGITS) 
1397 011004 012737 177777 001756 MOV #1, TRIN SET FLAG FOR NO TEST 
1398 011012 112777 000101 170602 6$:  MOVB #101,acsR ENABLE INTERUPT 
1399 011020 005000 CLR = RO ZSET TIMER 
1400 011022 005200 INC —RO iTI 
1401 011024 001376 BNE — .=2 :BR IF NOT DONE 
1402 011026 104401 011034 TYPE 5 67$ ::TYPE ASCIZ STRING 
(1) 011032 000436 BR 6$ ::GET OVER THE ASCIZ 
gem i678: .ASCIZ <200>/ERROR2A! NO’ EXTERNAL REQUEST INTERUPT DETECTED. CSR= / 
1403 011124 017737 170472 001126 MOV = @CSR. BAD ;SAVE_CSR 
1404 011132 013746 001126 MOV _— BAD, =( SP) 3:SAVE BAD FOR TYPEOUT 
(1) 011136 104402 TYPOC 3:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1405 011140 000000 HALT 
1406 011142 000776 BR 72 
1407 011144 1$: 
(2) 011144 012600 MOV — (SP) +, RO 3:POP STACK INTO RO 
(2) 011146 012600 MOV — (SP) +-RO ::POP STACK INTO RO 
1408 011150 017737 170446 001126 MOV = @CSR,BAD STORE CONTENTS OF CSR 
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MULTIPORT TEST SEQ 0049 
1409 011156 032737 010000 001126 BIT #10000 ,BAD sMAKE SURE EXT INT IS SET 
1410 011164 001036 BNE 2s :BR = OK 
1411 011166 104401 011174 TYPE 69$ zs TYPE ASCIZ STRING 
(1) 011172 000426 BR 8$ 33GET OVER THE ASCIZ 
+3 011250 iig?* eASCIZ <200>/ERROR2B! EXTERNAL INTERUPT NOT SET. CSR= / 
1412 011250 013746 001126 MOV BAD ,-(SP) 2sSAVE BAD FOR TYPEOUT 
(1) 011254 104402 TYPOC 23G0 TYPE--OCTAL ASCII(ALL DIGITS) 
1413 011256 000000 HALT 
1414 011260 000776 BR 272 
1415 011262 033737 001730 001126 2$: BIT COVID,BAD CORRECT SLAVE ID? 
1416 011270 001042 BNE sBR=YES 
1417 011272 104401 011300 TYPE 71$ 2s TYPE ASCIZ STRING 
(1) 011276 000432 BR 0$ 3.GET OVER THE ASCIZ 
st 011366 FT ha eASCIZ <200>/ERROR2C! EXTERNAL REQUEST FROM WRONG PORT. (CSR= / 
1418 011364 013746 001126 MOV BAD ,~(SP) 3sSAVE BAD FOR TYPEOUT 
(1) 011370 104402 TYPOC 32GO TYPE--OCTAL ASCIICALL DIGITS) 
1419 011372 0000 HALT 
1420 011374 776 BR -72 
1421 011376 012777 011514 170220 3$: MOV #4$ ,avECco SET RETURN 
1422 011404 005037 177776 CLR PSW LOWER PRIORITY 
1423 011410 737 022010 JSR PC ,WAITOS 2 WAIT 
1424 011414 104401 011422 TYPE 73$ ze TYPE ASCIZ STRING 
(1) 011420 043 BR 2s 33GET OVER THE ASCIZ 
34 011502 hha eASCIZ <200>/ERROR2D! SLAVE DIDN'T TAKE SHARED BUSS. CSR= / 
1425 011502 017746 170114 MOV aCSR,-(SP) 3sSAVE @CSR FOR TYPEOUT 
(1) 011506 104402 TYPOC 22GO TYPE--OCTAL ASCII(ALL DIGITS) 
1426 011510 000000 HALT 
1427 011512 000776 BR a 4 
1428 011514 4$: 
(2) 011514 012600 MOV (SP)+,RO 3zPOP STACK INTO RO 
(2) 011516 012600 MOV (SP)+,RO 33POP STACK INTO RO 
(2) 611520 012600 MOV (SP)+,RO 3:POP STACK INTO RO 
1429 011522 005777 170074 TST acsrR TIMEOUT SET? 
1430 011526 100436 BMI 5$ :BR=YES 
1431 011530 104401 011536 TYPE 75$ 33 TYPE ASCIZ STRING 
(1) 011534 000423 BR 4$ 3:GET OVER THE ASCI2Z 
3 011606 agraee eASCIZ <200>/ERROR2ZE! NO TMO ON INTERUPT. CSR= / 
1432 011604 017737 170012 001126 MOV aCSR,BAD zSAVE CSR 
1433 011612 013746 001126 MOV BAD ,~(SP) 3:SAVE BAD FOR TYPEOUT 
(1) 011616 104402 TYPOC 32:GO TYPE--OCTAL ASCII(ALL DIGITS) 
1434 011620 HALT 
1435 011622 776 BR 72 
1436 011624 012777 023022 167772 S5$: MOV #O00PS ,avECO RESET RETURN 
1437 011632 005077 167764 CLR acsR CLEAR CSR 
1438 011636 005037 177776 CLR PSW LOWER PRIORITY 
1439 011642 000207 RTS PC sEXIT 
1440 
1441 
1442 
rs SEND CONNECT REQUEST EXPECT REJECTION 
1445 011644 FUNCT3: 
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17:26 PAGE 12-37 
MULTIPORT TEST 


JSR PC, CNTLC 1S IT CONTROL C? 

CLR RO :SET TIMERS 

MOV #400,R1 

BIT #20060, aCSR :SWITCHED BUSS ACTIVE? 
BNE 2$ =YES 

INC RO :TIME OUT 

BNE 1$ 

DEC R1 

BNE 1$ 

MOV acSR,BAD : STORE CONTENTS OF CSR 
TYPE ,65$ TYPE ASCIZ STRING 
BR 64$ *:GET OVER THE ASCIZ 
"ASCIZ <200>/ERROR3A! NO’ SWITCHED BUSS MASTER DETECTED. CSR = 
MOV BAD,-(SP) ::SAVE BAD FOR TYPEOUT 
TYPOC +:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
HALT 

BR 72 

MOV #3$ ,avEcO :$ET RETURN 

MOV #101,aCSR [SET IE + REQ 

WAIT SWAIT FOR INTERUPT 

MOV (SP)+,RO :3POP STACK INTO RO: 
MOV (SP) +.RO POP STACK INTO RO 
TST acsR : TIMEOUT? 

BMI 4$ SBR=YES 

MOV aCSR,BAD [SAVE CSR 

TYPE 623 i: TYPE ASCIZ STRING 
BR [GET OVER THE ASCIZ 
ASCIZ $550>/ERROR3B! NO TIMEOUT DETECTED. CSR=/ 
MOV BAD, -(SP) z:SAVE BAD FOR TYPEOUT 
TyPoc ':G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
BR 72 

CLR acsR ZCLEAR + DISCONNECT 
MOV #OOPS ,aVECO 3RESET RE TURN 

CLR PSW LOWER PRIORITY 

RTS PC EX x1 

7SEND CONNECT REQUEST EXPECT CONNECTION 

JSR PC, CNTLC :1S IT CONTROL C? 

CLR RO [SET TIMERS 

MOV #400.R1 

BIT #20000, aCSR ySWITCHED BUSS ACTIVE? 
BNE 2$ [BR=YES 

INC RO [TIME OUT 

BNE 1$ 

me 

MOV aCSR.BAD ySTORE CONTENTS OF CSR 
TYPE 65$ i: TYPE ASCIZ STRING 


OVER THE 


BR $ :GET ASCIZ 
eASCIZ <200>/ERRORGA! no’ SWITCHED BUSS MASTER DETECTED. CSR = 


MOV BAD ,~(SP) 3:SAVE BAD FOR TYPEOUT 


| 
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CRDTAB.P11 = 16=NOV-81 17:16 MULTIPORT TEST SEQ 0051 
(1) 012310 104402 TYPOC ::G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
1489 012312 00 HALT 
1490 012314 776 BR .-2 
1491 012316 013737 001746 001732 28: MOV TIMA, TEMP1 :SET TIMER 
1492 012324 006337 001732 ASL TEMP 
1493 012330 032777 020000 167264 21$: BIT #20000, aCSR :SwWB ACT SET? 
1494 012336 001705 BEQ FUNCT4 ;BR=NO 
1495 012340 005337 001732 DEC 
1496 012344 001371 BNE 21$ 
1497 012346 012777 012364 167250 MOV #3$,aVvECO :SET RETURN 
1498 012354 012777 000101 167240 MOV #101, aCSR [SET IE + REQ 
1499 012362 01 WAIT ‘WAIT FOR INTERUPT 
1500 012364 3$: 
(2) 012364 012600 MOV (SP)+,RO ::POP STACK INTO RO 
(2) 012366 012600 MOV (SP)+-RO +:POP STACK INTO RO 
1501 012370 105777 167226 TSTB = @C SR : CONNECTED? 
1502 012374 100437 BMI 4$ TBR=YES 
1503 012376 017737 167220 001126 MOV aCSR,BAD TSAVE CSR _ 
1504 012404 1044601 612412 TYPE ,67$ t:TYPE ASCIZ STRING 
(1) 012410 000424 BR 66$ *:GET OVER THE ASCIZ 
cv) setaall i678: -ASCIZ <200>/ERROR4B! CONNECT REQUEST FAILED. CSR=/ 
1505 012462 013746 001126 MOV BAD,-(SP) ::SAVE BAD FOR TYPEOUT 
(1) 012466 104402 TYPOC [G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
1506 012470 00 HALT 
1507 012472 000776 BR 72 
1508 012474 005737 001756 4$: TST TRIN ZCAN WE TEST RESET IN NEUTRAL 
1509 012500 001036 BNE 5$ *BR=NO 
1510 012502 033777 001642 167126 BIT DEVRC,aDEVAD §:RESET CONDITIONS MET? 
1511 912510 001432 BEQ 5$ SBR=YES 
1512 012512 104401 012520 TYPE  .69$ :;TYPE ASCIZ STRING 
(1) 012516 000424 BR 8$ *:GET OVER THE ASCIZ 
(1) sei 5693: -ASCIZ <200>/ERROR4C! NO RESET IN NEUTRAL DETECTED. / 
1513 012570 012737 177777 001756 MOV #~-1, TRIN ZCANCEL FURTHER TESTING OF RESET IN NEUTRAL 
1514 012576 005077 167020 5$: CLR acsA [CLEAR + DISCONNECT 
1515 012602 012777 023022 167014 MOV #OOPS ,avECO SRESET RETURN 
1516 012610 005037 177776 CLR PSW SLOWER PRIORITY 
1517 012614 000207 RTS PC EXIT 
1518 JOBSERVE REQUEST INDICATORS 
1519 012616 FUNCTS: 
1520 012616 004737 026620 JSR PC, CNTLC z1S IT CONTROL C? 
1521 012622 004737 021732 JSR PC. CONID :GO CONVERT PORT ID 
1522 012626 005000 CLR RO *SET TIMERS 
1523 012630 012701 000400 MOV #400,R1 
1524 012634 033777 001730 166760 1$: BIT COVID,acsR :LOOK FOR REQUEST 
1525 012642 001035 BNE 2$ *BR=FOUND IT 
1526 012644 005200 INC RO :TIME OUT 
1527 012646 001372 BNE 1$ 
1528 012650 005301 DEC R1 
1529 012652 001370 BNE 1$ 
1530 012654 104401 012662 TYPE ,65$ ri: TYPE ASCIZ STRING 
(1) 012660 000424 BR 64$ *:GET OVER THE ASCIZ 
(1) 3:65$: .ASCIZ <200>/ERRORSA! NO REQUEST ACTIVITY DETECTED./ 
(1) 012732 64$: 
1531 012732 000000 HALT 
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CRDTAB.P11 16-NOV-81 17:16 MULTIPORT TEST SEQ 0052 
1288 012734 000776 BR ewe 
1533 012736 033777 001730 166656 2$: BIT COVID,aCSR 3DID IT GO AWAY? 
1534 012744 001374 BNE 2$ 3BR=NOT YET 
1535 012746 000207 RTS PC sEXIT 
as 
1538 012750 010206 TABM:  FUNCT1 ;DISPATCH TABLE FOR MULTIPORT TEST 
1539 012752 010636 FUNCT2 
1540 012754 011644 FUNCT3 
1541 012756 012152 FUNCT4 
1542 012760 012616 FUNCTS 
1543 
1544 
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CRDTAB.P11 16=NOV-81 
154 
154 
1548 
1549 
1550 
1551 
1326 
1553 012762 
1554 012762 004737 
1555 012766 012737 
1228 012774 005077 
1557 01 012737 
1558 013006 B00 3! 
1559 aE a Baelae 
1560 01302 1401 
1561 013022 000464 
1306 813063 012777 
1563 013032 012777 
1564 013040 004737 
1565 013044 104401 
ny 013050 000432 
(1) 013136 
1566 013136 017746 
(1) 013142 104402 
1567 013144 000 
1568 013146 776 
1569 013150 012706 
1570 013154 005037 
1571 013160 005777 
1572 013164 10000 
1573 013166 000240 
1574 013170 000240 
1575 013172 000240 
1576 013174 005037 
1577 013200 000137 
1578 013204 012737 
1579 
1580 
1581 
1582 013212 005737 
1583 013216 001952 
1584 013220 013777 
1585 OI ese 023777 
1586 0132 001443 
1587 013236 104401 
1 013242 000432 
(1) 013330 
1588 013330 013746 
(1) 013334 104402 
1589 013336 012737 
1590 013344 012777 
1591 013352 012737 
1592 013360 004737 
1593 013364 104401 
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013372 
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17:26 PAGE 12-40 
MULT 


IPORT TEST 


.SBTTL 
-$BTTL BIPORT TEST IN DTO3 MODE 
MULDT3: 
JSR PC, CNTLC z1S IT CONTROL C? 
MOV #0.PSW SLOWER PRIORITY 
CLR acsr ‘START WITH A CLEAR REGISTER 
MOV #2000, CYCLE ‘SET SUB COUNT 
CLR TR [CLEAR TRIGGER 
1$ BIT #20000, aCSR SACTIVE? 
BEQ 11$ :BR=NO 
BR 21$ :G0 BE SLAVE 
11$: MOV #2$,avECO :SET RETURN 
MOV #101 ,aCSR :SEND REQUEST 
JSR PC,WAIT20 *GO WAIT 
TYPE ~,65$ :;TYPE ASCIZ STRING 
BR 643 7:GET OVER THE ASCIZ 
51958: .ASCIZ <200>/ERROR6! NO INTERUPT AFTER CONNECT REQUEST. 
MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
TYPOC 7:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
HALT 
BR 72 
2$: MOV WSTACK,SP :RESET STACK 
CLR PSW SLOWER PRIORITY 
TST acsR : TIMEOUT? 
BPL 3$ ;BR=NO 
NOP 
NOP 
NOP 
21$: CLR ONOF F :INDIACATE FIRST SLAVE 
JMP SECT4 G0 
3$: MOV 4-1, ONOFF SINDIACATE FIRST MASTER 


zSECTION 2 : WAIT FOR EXTERNAL REQUEST THEN RELEASE SWITC4 
SECT2: hit i 3CAN WE TEST RESET IN NEUTRAL 


MOV DEVRW,aDEVAD LOAD DEVICE REGISTER 
CMP DEVRW,@DEVAD 30K? 
2s sBR=YES 
TYPE 65$ ze TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


V DEVAD,-(SP) r:SAVE DEVAD FOR TYPEOUT 

TYPOC £:G0 TYPE--OCTAL ASCII(ALL DIGITS) 

MOV #-1, TRIN [CANCEL FURTHER TESTING OF RESET IN NEUTRAL 
2$ MOV A aveco SSET RETURN 

MOV #632, TOCK *SET DELAY FOR 5 SECONDS 

JSR PC WAIT 

TYPE ,67$ r:TYPE ASCIZ STRING 


4$ 33 
5658: eASCIZ <200>/ERROR7A! COULDN'T LOAD EXTERNAL DEVICE REGISTER. ./ 
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(1) 013370 000432 BR 66$ z:GET OVER THE ASCIZ | 
a sot jig? .ASCIZ <200>/ERROR7! NO EXTERNAL INTERUPT REQUEST SEEN. CSR= / | 
1594 013436 017746 166140 MOV acsR,-(SP) ::SAVE aCSR FOR TYPEOUT 
(1) 0134 104402 TYPOC 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) | 
1595 013464 000000 HALT 
1596 013466 000776 BR 72 
1597 013470 O12? 001100 1$: MOV WSTACK,SP ;RESET STACK 
1598 013474 013737 001752 001124 MOV KONST, GOOD 
1599 013908 062737 030301 001124 ADD #30301,GOOD 
1600 013510 023777 001124 166104 CMP GOOD, acSR yMAKE SURE IT'S AN EXTERNAL REQUEST 
1601 013516 001435 BEQ SECTOA ;BR= 
1602 013520 104401 013526 TYPE ,69$ [;TYPE ASCIZ STRING 
(1) 013524 000425 BR 8$ “GET OVER THE ASCIZ 
cv) omens 5698 .ASCIZ <200>/ERRORS! UNEXPECTED INTERUPT TYPE. (CSR= / 
1603 013600 017746 166016 MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
(1) 013604 104402 TYPOC 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1604 013606 000000 HALT 
1605 013610 000776 BR 72 
1606 013612 000401 SECT2A: BR is ;RELEASE TYPE SWITCHBACK 
1607 013614 000420 BR SECT2B 'GO DO PASSIVE RELEASE 
1608 013616 012737 000240 013612 1$: MOV #240, SECT2A STURN SW1TCHBACK 
1609 013624 005077 165772 SECT2D: CLR acsR [DROP SWITCH ACTIVELY 
1610 013630 005037 177776 CLR PSW SLOWER PRIORITY 
1611 013634 105777 165762 TSTB = @C SR : DROPP 
1612 013640 100775 BMI 4 *BR=NO 
1613 013642 032777 020000 165752 BIT #20000, aCSR :PICKED UP? 
1614 013650 001774 BEQ .-6 [BR 
1615 013652 000137 014106 JMP SECT2C :60 TO EXIT 
1616 013656 012737 000401 013612 SECT2B: MOV #401, SECT2A STURN SWI TCHBACK 
1617 013664 012777 014000 165732 MOV #1$,aVvECO [SET RETURN 
1618 013672 005037 177776 CLR PSW SLOWER PRIORITY 
1619 013676 004737 021774 JSR PC,WAIT20 [60 WAIT FOR TIMEOUT 
1620 013702 104401 013710 TYPE ,65$ t:TYPE ASCIZ STRING | 
(1) 013706 000427 BR 4$ 7:GET OVER THE ASCIZ 
(1) Canad ij $58: -ASCIZ <200>/ERROR9! NO TIMEOUT INTERUPT DETECTED. CSR= / 
1621 013766 017746 165630 MOV acsSR,-(SP) z:SAVE @CSR FOR TYPEOUT 
(1) 013772 104402 TYPOC ':G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
1622 013774 HALT 
1623 013776 000776 BR 72 
1624 014000 012706 001100 1$: MOV WSTACK,SP :RESET STACK 
1625 014004 005777 165612 TST acsR ‘MAKE SURE IT'S A TIMEOUT 
1626 014010 100705 BMI SECT2D ;BR= 
1627 014012 104401 014020 TYPE 67$ [TYPE ASCIZ STRING 
(1) 014016 0004 BR rs :GET OVER THE ASCIZ 
(1) scl i678: -ASCIZ <200>/ERROR10! INTERUPT NOT CAUSED BY TMO. CSR= / 
1628 014074 017746 165522 MOV acsR,-(SP) r:SAVE @CSR FOR TYPEOUT 
(1) 014100 104402 TYPOC £:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
1629 014102 000000 HALT 
1630 014104 00077 BR 72 
1631 014106 005077 165510 SECT2C: CLR acsR ZCLEAR CSR 
163e 014112 005037 177776 CLR PS SLOWER PRIORITY 
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sSECTION 3 : SEND REQUEST EXPECT REJECTION 
4116 012737 000001 022062 SECT3: MOV #1,TOCK :SET MINIMUM TIME 
4124 004737 022022 JSR PC WAIT :GO WAIT 
41 012777 014240 165466 MOV #i$, avEco SSET RETURN 
4136 012777 000101 165456 MOV #101,aCSR ‘SEND REQUEST 
4144 004737 021774 JSR PC,WAIT20 :GO WAIT FOR TIMEOUT 
4150 104401 014156 TYPE 65$ t:TYPE ASCIZ STRING 
4154 000424 BR 4$ “GET OVER THE ASCIZ 
om i $58: -ASCIZ <200>/ERROR11! NO’ INTERUPT DETECTED. CSR= / 
4206 017746 165370 MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
4232 106402 TYPOC $:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
4234 000000 HALT 
4236 000776 +2 
4240 0127 001100 1$: MOV #STACK,SP sRESET STACK 
4244 005777 165352 TST acsR : TIMEOUT? 
4250 100437 BMI 2$ SBR=YES 
4252 104401 014260 TYPE ,67$ ‘:TYPE ASCIZ STRING 
4256 000427 BR 6$ ::GET OVER THE ASCIZ 
tonite i678: .ASCIZ <200>/ERROR12! INTERUPT NOT CAUSED BY TMO. CSR= / 
4336 017746 165260 MOV acsR,-(SP) zzSAVE @CSR FOR TYPEOUT 
4342 104402 TYPOC £:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
4344 000000 HALT 
4346 000776 BR .- 
4350 005077 165246 2s: CLR acsR ZCLEAR CSR 
4354 005037 177776 CLR PSW SLOWER PRIORITY 
4360 005737 022006 TST TRIG tIS TRIGGER SET? 
4364 001402 BEQ SECT4 :BR=NO 
4366 000137 015236 JMP MULEND ‘FINISHED A SUB PASS 


SECTION 4 : SEND REQUEST EXPECT CONNECTION 


014372 012777 014502 165224 SECT4: MOV #1$, aVvECO :SET RETURN 
4400 012777 000101 165214 MOV #101, aCSR ‘SEND REQUEST 
4406 004737 021774 JSR PC, WAIT20 [GO WAIT FOR TIMEOUT 
4412 104401 014420 TYPE 65$ ::TYPE ASCIZ STRING 
4416 000 BR 4$ *:GET OVER THE ASCIZ 
‘cine 11658: .ASCIZ <200>/ERROR13! NO INTERUPT DETECTED. CSR= / 
4470 017746 165126 MOV acsR,-(SP) z:SAVE a@CSR FOR TYPEOUT 
4474 104402 TYPOC 1:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
4476 HALT 
4500 000776 BR 72 
4502 012706 001100 1$: MOV WSTACK, SP :RESET STACK 
4506 013737 001752 001124 MOV KONST , GOOD 
4514 062737 020301 001124 ADD #20301, GOOD 
4522 023777 001124 165072 CMP GOOD, aC Sk : CONNECTED? 
4530 001432 BEQ sects sBR=YE 
4532 104401 014540 TYPE 67$ t;TYPE ASCIZ STRING 
4536 000422 BR 6$ *:GET OVER THE ASCIZ 
catia i678: -ASCIZ <200>/ERROR14! COULD NOT CONNECT. CSR= / 
4604 017746 165012 MOV acsr,-(SP) z:SAVE @CSR FOR TYPEOUT 
4610 104402 TYPOC £:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
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HALT 
BR 


72 


SECTION 5 :DETECT EXTERNAL REQUEST AND REJECT IT 


SECTS: 


1$: 


3769S: 
68s: 


2$: 


DT3SP: 
1$: 
2$: 


MULEND : 


1$: 


TST 
BN 


TRIN :CAN WE TEST RESET IN NEUTRAL? 
DEVRC,@DEVAD :RESET CONDITION MET 

3$ sBR=YES 

65$ sz TYPE ASCIZ STRING 

4$ +:GET OVER THE ASCIZ 

<200>/ERROR15A! COULDN'T DETECT RESET IN NEUTRAL./ 
#~1,TRIN ZCANCEL FURTHER TESTING OF RESET IN NEUTRAL 
#1$,aVECO TSET RETURN 

PSW SLOWER PRIORITY 

PC,WAIT20 : IT 

67$ ::TYPE ASCIZ STRING 


GET OVER THE ASCIZ 


6$ 23 
<200>/ERROR15! NO EXTERNAL REQUEST DETECTED. CSR= 


acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
.-2 
WSTACK, SP :RESET STACK 
KONST, GOOD 
#30301 , GOOD 
GOOD, acsR ZEXT. INT. ? 
2s ;BR=0K 
69S +;TYPE ASCIZ STRING 
$ +:GET OVER THE ASCIZ 
<200>/ERROR16! UNEXPECTED INTERUPT. (CSR= / 
acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
£:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
72 
#101,aCSR :CLEAR EXT. INT. 
#OOPS ,aVECO SRESET RETURN 
PSW SLOWER PRIORITY 
CYCLE :COUNT A SUBPASS 
1$ [BR=DONE 
SECT2 : CONTINUE 
ONOFF SFIRST MASTER OR SLAVE 
2s :BR=SLAV 
MULEND *MASTER REPORTS ENDPASS 
#-1, TRIG SSET TRIGGER FOR SLAVE 
SECT2 [CONTINUE SLAVE AT SECT2 
ONOF F :WAS THIS FIRST SLAVE? 
SBR=YES 
#MULDT3, SRTNAD SE 


T RETURN 
:GO0_ DO ENDPASS 
#2$,SRTNAD SET RETURN 


SEQ 0056 | 


ce = nS eee 


ee ee ae 
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16-NOV-81 17:16 


MACY11_ 30A(1052) 


CRDTAB.P11 


-MAIN. 


SEQ 0057 


G0 DO _ENDPASS 
;WAIT 2 SECONDS 


:GO TO IT! 
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CRDTAB.P11  16=NOV-81 17:16 
1723 
1724 .SBTTL 
1725 “SBTTL MANUAL INTERVENTION TEST 
1727 015300 MANIN: 
1728 015300 004737 026620 JSR PC, CNTLC z1S IT CONTROL C? 
1729 015304 005737 001634 TST pT63 :CHECK DTOS MODE 
1730 015310 00140¢ BEQ :BR=DT07 MODE 
1731 015312 000137 016376 JMP PWROK ZSKIP OVER MANUAL MODE TEST IF DTO3 
1732 015316 MANMOD : 
1733 015316 004737 026620 JSR PC, CNTLC 31S IT CONTROL C? 
1734 015322 005077 164274 CLR CSR 3CL 
1735 015326 104401 015334 TYPE ,65$ t: TYPE ASCIZ STRING 
(1) 015332 0004 BR 4$ :GET OVER THE ASCIZ 
(1) 3:65$: .ASCIZ <200>/PUT THIS DT07 IN MANUAL MODE THEN TYPE <CR>./ 
(1) 015412 é4$: 
1736 015412 104410 RDCHR 
1737 015414 012600 MOV (SP)+,RO ::POP STACK INTO RO 
1738 015416 032777 002000 164176 1S: BIT #2000, aCSR sMANUAL MODE SET? 
1739 015424 001042 BNE 2$ :BR=YES 
1740 015426 104401 015434 TYPE 67$ ::TYPE ASCIZ STRING 
(1) 015432 000430 BR 6$ +:GET OVER THE ASCIZ 
C1) aetna i678: -ASCIZ <200>/ERROR1! MANUAL MODE (BIT10) IS NOT SET. CSR= / 
1741 015514 017746 164102 MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
(1) 015520 104402 TYPOC 7:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1742 015522 HALT 
1743 015524 004737 026620 JSR PC, CNTLC z1S IT CONTROL C? 
1744 015530 00067 BR MANMOD *GO TRY AGAIN 
1745 015532 012777 000001 164062 28: MOV #1,aCSR :TRY TO SET REQ IN MAN.MOD. 
1746 015540 032777 000001 164054 BIT #1,aCSR SET? 
1747 015546 001445 BEQ 3$ :BR=NO 
1748 015550 104401 015556 TYPE ,69$ tz TYPE ASCIZ STRING 
(1) 015554 33 BR 68$ *:GET OVER THE ASCIZ 
( ieee 14698" -ASCIZ <200>/ERROR2! REQ BIT NOT DISABLED IN MANUAL MODE. CSR= / 
1749 015644 017746 163752 MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
(1) 015650 104402 TYPOC 7:60 TYPE--OCTAL ASCII(ALL DIGITS) 
1750 015652 HALT 
1751 015654 004737 026620 JSR PC, CNTLC z1S IT CONTROL C? 
1752 015660 000724 BR 2$ :TRY AGAIN 
1753 015662 3$: 
(1) 015662 104401 015670 TYPE 71$ zz: TYPE ASCIZ STRING 
(1) 015666 000426 BR 0$ : GET OVER THE ASCIZ 
(1) >:71$: .ASCIZ <200>/CONNECT THIS DTO7 MANUALY THEN TYPE <CR>./ 
(1) 015744 70$: 
1754 015744 104410 RDCHR 
1755 015746 012600 MOV (SP)+,RO z:POP STACK INTO RO 
1756 015750 032777 000001 163644 BIT #1,aCSR ‘1S REQ SET NOW? 
1757. 015756 001041 BNE 4$ *BR=YE 
1758 015760 104401 015766 TYPE 73$ t:TYPE ASCIZ STRING 
(1) 015764 000431 res *:GET OVER THE ASCIZ 
(1) ats: 55738: -ASCIZ <200>/ERROR3! REQ. BIT NOT SET WHEN CONNECTED. CSR= / 
1759 016050 017746 163546 MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
(1) 016054 104402 TYPOC 3:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
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CRDTAB.P11  16-NOV-81 17:16 MANUAL INTERVENTION TEST SEQ 0059 
1760 016056 000000 HALT 
1761 01 000700 BR 3$ 
1762 01 000005 4$: RESET ZRESET THE BUSS | 
1763 016064 032777 000001 163530 BIT #1,aCSR TREQ STILL THERE? 
1764 016072 001034 BNE $ SBR=YES | 
1765 016074 104401 016102 TYPE 75$ tz TYPE ASCIZ STRING 

(1) 016100 000424 BR 4$ =*GET OVER THE ASCIZ 
(1) neve 54758: sASCIZ <200>/ERRORG! RESET CLEARED REQ. BIT. CSR= / 
1766 016152 017746 163444 MOV acsRr,-(SP) z:SAVE @CSR FOR TYPEOUT 
(1) 016156 104402 TYPOC 7:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1767 016160 HALT 
1768 016162 000737 4$ 
1769 016164 S$: 
(1) 016164 104401 016172 TYPE 77$ zi TYPE ASCIZ STRING 
(1) 016170 000432 6$ -*GET OVER THE ASCIZ 
(1) :377$: .ASCIZ <200>/PUT THIS DT07 IN PROGRAMMABLE MODE THEN TYPE <CR>./ 
(1) 016256 76$: 
1770 016256 104410 RDCHR | 
1771 016260 012600 MOV (SP)+,RO ::POP STACK INTO RO | 
1772 016262 032777 002000 163332 BIT #2000, aCSR [MAN.MOD. GONE? 
1773 016270 001442 BEQ PWROK SBR=YES 
1774 016272 104401 016300 TYPE 79$ T:TYPE ASCIZ STRING 
(1) 016276 000432 BR 8 *:GET OVER THE ASCIZ 
(1) een 55798: -ASCIZ <200>/ERRORS! MANUAL MODE (BIT10) DIDN'T CLEAR. CSR= / 
1775 016364 017746 163232 MOV acsR,-(SP) ::SAVE @CSR FOR TYPEOUT 
(1) 016370 104402 TYPOC [:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
1776 016372 000000 HALT 
1777 016374 73 5$ 
1778 016376 PWROK : 
1779 016376 004737 026620 JSR PC, CNTLC 31S IT CONTROL C? 
1780 016402 005077 163214 CLR acsr [CLEAR DEVICE 
1781 016406 104401 016414 TYPE ~,65$ t:TYPE ASCIZ STRING 
(1) 016412 000422 BR 643 ':GET OVER THE ASCIZ | 
(1) 3:65$: .ASCIZ <200>/POWEN UP ALL DTO7S THEN TYPE <CR>./ 
(1) 016460 64$: 
1782 016460 104410 RDCHR 
1783 016462 012600 MOV (SP)+,RO z:POP STACK INTO RO 
1784 016464 032777 004000 163130 1S: BIT #4000. aCSR sPWROK OK? 
1785 016472 001034 BNE 2$ :BR=YES 
1786 016474 104401 016502 TYPE 67$ ::TYPE ASCIZ STRING 
(1) 016500 000424 BR 6$ *:GET OVER THE ASCIZ 
(1) easiad i678: -ASCIZ <200>/ERROR6! PWR.OK (BIT11) NOT SET. CSR= / 
1787 016552 017746 163044 MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
(1) 016556 104402 TYPOC 2:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1788 016560 000000 HALT | 
1789 016562 000705 | 
1790 016564 005037 177776 2s: CLR PSW ZLOWER PRIORITY 
1791 016570 004737 021674 JSR PC, CONNEC [G0 CONNECT 
1792 016574 104401 016602 TYPE 65$ [TYPE ASCIZ STRING 
(1) 016600 000423 BR 8$ ':GET OVER THE ASCIZ 
(1) 37698: .ASCIZ <200>/POWER DOWN OTHER CPU THEN TYPE <CR>./ 
(1) 016650 68s: | 
1793 016650 104410 RDCHR | 
| 
\ 
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CRDTAB.P11  16-NOV-81 17:16 MANUAL INTERVENTION TEST SEQ 0060 
1794 016652 012 MOV (SP)+,RO ::POP STACK INTO RO 
1795 016654 933999 004000 162740 BIT #4000, aCSR sPWROK NOT OK? 
1796 016662 001441 BEQ 3$ *BR=0K 
1797 016664 104401 016672 TYPE 71$ Z:TYPE ASCIZ STRING 
(1) 016670 000427 BR 0$ "GET OVER THE ASCIZ 
C1) mae PALE eASCIZ <200>/ERROR7! PWR. OK (BIT11) NOT CLEARED. CSR= / 
1798 016750 017746 162646 MOV acsR,-(SP) ::SAVE @CSR FOR TYPEOUT 
(1) 016754 104402 TYPOC 2:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1799 016756 000000 HALT 
1800 016760 004737 026620 JSR PC, CNTLC z1S IT CONTROL C? 
1801 016764 BR 
1802 016766 032777 000200 162626 38: BIT #200, aCSR :STILL CONNECTED? 
1803 016774 001032 BNE 4$ sBR=YE 
1804 016776 104401 017004 TYPE 73$ ::TYPE ASCIZ STRING 
(1) 017002 BR 23 *:GET OVER THE ASCIZ 
(1) -:73$: .ASCIZ <200>/ERRORS! LOST SHARED BUSS. CSR= / 
(1) 017046 72$: 
1805 017046 017746 162550 MOV acsR,-(SP) ::SAVE @CSR FOR TYPEOUT 
(1) 017052 104402 TYPOC 7:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1806 017054 HALT - 
1807 017056 000137 016376 JMP PWROK 
1808 017062 4$: 
(1) 017062 104401 017070 TYPE 75$ rz TYPE ASCIZ STRING 
(1) (017 000433 BR 4$ *:GET OVER THE ASCIZ 
(1) :;75$: .ASCIZ <200>/RESTORE ALL DTO7S TO ORIGINAL STATE THEN TYPE <CR>./ 
(1) 017156 74$: 
1809 017156 104410 RDCHR 
1810 017160 012600 MOV (SP)+,RO z:POP STACK INTO RO 
1812 017162 SWBPWF : 
1813 017162 004737 026620 JSR PC, CNTLC 21S IT CONTROL C? 
1814 017166 005077 162430 CLR acsr [CLEAR DEVICE 
1815 017172 013746 000024 MOV @A4PWRVEC ,- (SP) :2:PUSH @4PWRVEC ON STACK 
1816 017176 012737 017406 000024 MOV #11$,a#PWRVEC SET RETURN 
1817 017204 012777 000100 162410 MOV #100. aCSR SSET I.E. 
1818 017212 005037 177776 1$: CLR PSW SLOWER PRIORITY 
1819 017216 104401 017224 TYPE 65$ :;TYPE ASCIZ STRING 
(1) 017222 6 BR = ':GET OVER THE ASCIZ 
(1) 3:65$: .ASCIZ <200>/POWER DOWN THE SHARED BUSS THEN TYPE <CR>./ 
(1) 017300 64S: 
1820 017300 104410 RDCHR 
1821 017302 012600 MOV (SP)+,RO ::POP STACK INTO RO 
1822 017 032777 040000 162310 BIT #40000, aCSR :SWB PWF SET? 
1823 017312 001112 BNE ‘BR=YES 
1824 017314 104401 017322 TYPE 67$ ::TYPE ASCIZ STRING 
(1) 017320 000425 BR 6$ S:GET OVER THE ASCIZ 
(1) saline i678: -ASCIZ <200>/ERRORS! SWB PWF (BIT14) NOT SET. CSR= / 
1825 017374 017746 162222 MOV acsR,-(SP) ::SAVE @CSR FOR TYPEOUT 
(1) 017400 104402 TYPOC 2:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1826 017402 0000 HALT 
1827 017404 00970 BR 1$ 
1828 017406 012706 001100 11$: MOV #STACK,SP ZRESET STACK 
1829 017412 005746 TST -(SP :POSITION STACK 
1830 017414 012637 000024 MOV (SP) +, a#PWRVEC z:POP STACK INTO a#PWRVEC 
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CRDTAB.P11  16=NOV-81 17 L INTERVENTION TEST SEQ 0061 
1831 017420 104401 017426 TYPE 9$ zz TYPE ASCIZ STRING 
(1) 017424 000440 $ "*GET OVER THE ASCIZ 
C1) soraae 5698: .ASCIZ <200>/ERROR9! TRAP THRU POWER FAIL VECTOR WHEN DISCONNECTED. CSR= / 
1832 017526 017746 162070 MOV acsR,-(SP) ::SAVE @CSR FOR TYPEOUT 
(1) 017532 104402 TYPOC 7:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1833 017534 000000 HALT 
1834 017536 000611 BR SWEPWF 
1835 017540 2$: 
(1) 017540 104401 017546 TYPE 71$ zz TYPE ASCIZ STRING 
(1) 017544 000423 BR 0$ *:GET OVER THE ASCIZ 
(1) -:71$: .ASCIZ <200>/POWER UP SHARED BUSS THEN TYPE <CR>/ 
(1) 017614 70$: 
1836 017614 104410 RDCHR 
1837 017616 012600 MOV (SP)+,RO ::POP STACK INTO RO 
1838 017620 032777 040000 161774 BIT #40000, aCSR ‘DID IT CLEAR? 
1839 017626 001441 BEQ 3$ :BR=YES 
1840 017630 104401 017636 TYPE 73$ ::TYPE ASCIZ STRING 
(1) 017634 000430 BR 72$ *:GET OVER THE ASCIZ 
C1) el 45738: -ASCIZ <200>/ERROR10! SWB PWF (BIT14) DIDN'T CLEAR. CSR= / 
1841 017716 017746 161700 MOV acsR,-(SP) zzSAVE @CSR FOR TYPEOUT 
(1) 017722 104402 TYPOC 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1842 017724 000000 HALT 
1843 017726 000137 017212 JMP 1$ 
1844 017732 ERREN=. 
1845 017732 005077 161664 3$: CLR acSR _—s; CLEAR IT 
1846 017736 012737 020170 000024 MOV #PFVSEV, a#PWRVEC :SET RETURNS 
1847 017744 012777 021024 161652 MOV #PWF SER, aVECO 
1848 017752 005037 177776 CLR PSW 
1849 017756 004737 021674 JSR PC, CONNEC 7GO CONNECT ‘ 
1850 017762 052777 000100 161632 BIS #100, aCSR [SET I.E. 
1851 017770 104401 017776 TYPE 75$ :: TYPE ASCIZ STRING 
(1) 017774 000423 BR 4$ *:GET OVER THE ASCIZ 
(1) etal 54758: -ASCIZ <200>/POWER THE SHARED BUSS DOWN THEN UP./ 
1852 0200464 012737 011470 022062 MOV #11470, TOCK :SET TIMER FOR 1 MIN. 
1853 020052 004737 022022 JSR PC WAIT 
1854 020056 104401 020064 TYPE 77$ rz TYPE ASCIZ STRING 
(1) 020062 BR 6$ *:GET OVER THE ASCIZ 
oe seal . 5g778: -ASCIZ <200>/ERROR11! WO EVIDENCE OF POWER FAILURE DETECTED. CSR= / 
1855 020156 017746 161440 MOV acSR,-(SP) r:SAVE @CSR FOR TYPEOUT 
(1) 020162 104402 TYPOC [:G0 TYPE=--OCTAL ASCII(ALL DIGITS) 
1856 020164 000000 HALT 
1857 020166 000661 BR 3g 
1859 020170 PFVSEV: 
1860 020170 004737 026620. JSR PC, CNTLC z1S IT CONTROL C? 
1861 020174 017737 161422 001126 MOV acSR.BAD “SAVE CSR CONTENTS 
1862 020202 042737 000400 001126 BIC #400,BAD :MASK BRQ IF PRESENT 
1863 020210 042777 000100 161404 BIC #100, aCSR [DROP I.E. 
1864 020216 012737 020226 000024 MOV #1$,a#PWRVEC POINT TO POWER UP ROUTINE 
1865 020224 000000 HALT  ;:IF YOU STOPPED HERE NO POWER UP TRAP OCCURED 
1866 020226 017737 161370 002674 1S: MOV aCSR, TEMP2 :STORE CSR 
1867 020234 013737 001752 001124 MOV KONST , GOOD SASSEMBLE GOOD DATA 
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17:26 PAGE 12-49 
MANUA 


L INTERVENTION TEST 


33698: 
68s: 


‘is: 


3$: 


:;73$: 
72$: 


4$: 


-;75$: 
74$ 


-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
eASCIZ 


MOV 
TYPOC 
LT 


POSTSV=. 
MOV 


#60301 ,GOOD 
_ 


65$ 

4$ 
<200>/ERROR12! 
BAD ,~(SP) 

.67$ 

6$ 

<200>/1T SHOULD 
GOOD ,-(SP) 


#STACK, SP 
=(SP) 


TEMP2 ,BAD 
#400,BAD 
#20301, GOOD 
GOOD ,BAD 

69$ 

8$ 
<200>/ERROR13! 
BAD ,-(SP) 

71$ 

0$ 

<200>/I1T SHOULD 
GOOD ,-(SP) 


11$ 
#40000,aCSR 
73$ 
2s 
<200>/ERROR14! 
aCSR,-(SP) 


PC,CNILC 


118 
75$ 
4$ 
<200>/THIS D107 


#STACK, SP 


A St Y AT PWR DOWN? 


;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
CSR INCORRECT @ POWER DOWN TIME. CSR WAS / 


3;SAVE BAD FOR TYPEOUT 

32G0 TYPE--OCTAL ASCII(ALL DIGITS) 
zsTYPE ASCIZ STRING 

us’ OVER THE ASCIZ 


SAVE GOOD FOR TYPEOUT 
22G0 TYPE--OCTAL ASCII(ALL DIGITS) 


sRESET STACK 
sPOSITION STACK 


GET PWR UP DATA 
sMASK BRQ IF PRESENT 
CORRECT GOOD DATA 
CORRECT @ PWR UP? 


sBR=YES 

22 TYPE ASCIZ STRING 

3.GET OVER THE ASCIZ 

CSR INCORRECT @ POWER UP TIME. CSR WAS / 


3zSAVE BAD FOR TYPEOUT 

3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
sz TYPE ASCIZ STRING 

aes" OVER THE ASCIZ 


zzSAVE GOOD FOR TYPEOUT 
7:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
:D1D SuB PWF CLEAR? 

;TYPE ASCIZ STRING 

GET OVER THE ASCIZ 

$WB PwF (BIT14) DIDN'T CLEAR. CSR= / 


37sSAVE @CSR FOR TYPEOUT 
32GO0 TYPE--OCTAL ASCII(ALL DIGITS) 


21S IT CONTROL C? 


ze TYPE ASCIZ STRING 
;;GET OVER THE ait 


TRAPS ON POWER FAIL!/ 93 


sRESET STACK 


SEQ 0062 


iL 2 





.MAIN. MACY11 30A(1052) 16-NOV-81 17:26 PAGE 12-50 
CRDTAB.P11—- 16=NOV=81 17:16 MANUAL INTERVENTION TEST SEQ 0063 
1900 021012 00574 TST =(SP) :POSITION STACK 
1901 021014 012637 000024 MOV (SP) +, a#PWRVEC ::POP STACK INTO a#PWRVEC 
1902 021020 000137 021500 JMP MANEND 
1904 021024 017737 160572 001126 PwWFSER: MOV @CSR.BAD ZSAVE CSR 
1905 021032 040737 000400 001126 BIC #400,BAD [MASK BRO IF PRESENT 
1906 021040 013737 001752 001124 MOV KONST , GOOD TASSEMBLE GOOD DATA 
1907 021046 062737 060301 001124 ADD #60301, GOOD 
1908 021054 023737 001124 001126 CMP GOOD ,BAD :CORRECT @PWR DOWN? 
1909 021062 001457 BEQ $ ‘BR=YES 
1910 021064 104401 021072 TYPE ,65$ ii TYPE ASCIZ STRING 
(1) 021070 000427 BR 4 T OVER THE ASCIZ 
C) pattie ij 658: "ASCIZ <200>/ERRORIS! C&R INCORRECT @ POWER DOWN. WAS / 
1911 021150. 013746 001126 MOV BAD,-(SP) z:SAVE BAD FOR TYPEOUT 
(1) 021154 104402 TYPOC 33:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
1912 021156 104401 021164 TYPE ,67$ T:TYPE ASCIZ STRING 
(1) 021162 000406 BR 66$ t:GET OVER THE ASCIZ 
(1) ::67$: .ASCIZ <200>/SHOULD BE 7 
(1) 021200 66S: 
1913 021200 013746 001124 MOV GOOD ,-(SP) z:SAVE GOOD FOR TYPEOUT 
(1) 021204 104402 TYPOC 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
1914 021206 000000 HALT 
1915 021210 012706 001160 11$: MOV #STACK,SP sRESET STACK 
1916 021214 005746 TST = (SP } [POSITION STACK 
1917 021216 000137 017732 JMP 
1918 021222 012737 000632 022062 1%: MOV ee TOCK zSET TIMER FOR SSEC. 
1919 021230 004737 022022 JSR PC,WAIT :GO WAIT 
1920 021234 017737 160362 001126 MOV acSR,BAD i SAV VE CSR 
1921 021242 042737 000400 001126 BIC #400.BAD MASK BRO IF PRESENT 
1922 021250 162737 060201 001124 SUB #60201, GOOD [CORRECT DAT 
1923 021256 023737 001124 001126 CMP GOOD ,BAD CORRECT Now? 
1924 021264 001455 BEQ $ SBR=YES 
1925 021266 104401 . 021274 TYPE ,69$ ii TYPE ASCIZ STRING 
(1) 021272 000431 BR 68$ OVER THE ASCIZ 
CD) ned 55698: “ASCIZ <200>/ERROR16! CSR INCORRECT AFTER POWER UP. CSR WAS / 
1926 021356 017746 160240 MOV acsR,-(SP) z3SAVE aCSR FOR TYPEOUT 
(1) 021362 104402 TYPOC :60 TYPE=-OCTAL ASCIICALL DIGITS) 
1927 021364 104401 021372 TYPE 71$ S:TYPE ASCIZ STRING 
(1) 021370 000406 BR 0$ i687 OVER THE ASCIZ 
(1) -:71$: .ASCIZ <200>/SHOULD BE 7 
(1) 021406 70$: 
1928 021406 013746 001124 MOV GOOD ,-(SP) z:SAVE GOOD FOR TYPEOUT 
(1) 021412 104402 TYPOC ':G0 TYPE--OCTAL ASCII(ALL DIGITS) 
1929 021414 000000 HALT 
1930 021416 000674 BR 118 
1931 021420 ; 2s: 
(1) 021420 104401 021626 TYPE 73$ is TYPE ASCIZ STRING 
(1) 021424 000423 BR 72$ “GET OVER THE ASCIZ 
(1) -:73$: .ASCIZ <200>/THIS DT07 INTERRUPTS ON POWER FAIL!/ 
(1) 021474 72$: 
193¢ 021474 000137 021006 JMP POSTSV 
1934 021500 MANEND: 
(1) 021500 104401 021506 TYPE  ,65$ ri: TYPE ASCIZ STRING 


7's neha: 
11 16-NOV-81 


021504 000420 


021546 
021546 000000 
021550 000776 


Bs eating 
716 


m 5 
17:26 PAGE 12-51 
MANUAL INTERVENTION TEST 


BR 64$ OVER THE ASCIZ 
:65$: .ASCIZ <200>/MANUAL INTERGENTION TEST DONE./ 


226 

6é$: 
HALT 
BR 72 


SEQ 0064 
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17:26 PAGE 13 
MANUAL INTERVENTION TEST 


. NEWTST <<INSERT NEXT TEST HERE>> 


SEQ 0065 
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END OF PASS ROUTINE 
-SBTTL END OF PASS ROUTINE 


Cir iiiiiiviiiititisiiiiiiiiiiitiiy) 
;#INCREMENT THE PASS NUMBER (SPASS) 
TYPE ‘END e: AXXXKK'’ (WHERE XXXXX IS A DECIMAL NUMBER) 
ielF THERES A MONITOR GO TO IT 
"IF THERE ISN'T JUMP TO RESTRT 


SEOP: 
SCOPE 
CLR $TSTNM zzZERO THE TEST NUMBER 
CLR STIMES ::ZERO THE NUMBER OF ITERATIONS 
INC S$PASS 3s INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
: DEC (PC)+ +: LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN 77YES 
MOV (PC)+,a(PC)+ | ::RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE SENDMG ‘s: TYPE “END PASS ‘ 
MOV $PASS,-(SP) + ISAVE SPASS FOR TYPEOUT 
TYPDS 1:60 TYPE=-DECIMAL ASCII WITH SIGN 
TYPE  ,$ENULL 7: TYPE A NULL CHARACTER 
$GET42: MOV a4#42,R0 +:GET MONITOR ADDRESS 
SEQ SDOAGN BRANCH IF NO MONITOR 
RESET ::CLEAR THE WORL 
SENDAD: JSR PC, (RO) +:60 TO MONITOR 
NOP ::SAVE ROOM r 
NOP scFOR 
NOP ::ACT11 
SDOAGN: 
JMP a(Pc)+ : :RETURN 
RESTRT 


oe CHARACTER STRING 


MAIN. MACY11 30A(1052) 16-NOV-81 17:26 PAGE 13-2 
RDTAB.P11 16-NOV-81 17:16 USER ROUTINES 

1948 .SBTTL USER ROUTINES 

1904 

1945 021674 012737 000240 021710 CONNEC: MOV #240,2$ :SET SWITCH 

1946 021702 105777. 157714 1$: TSTB © aC SR L READY CONNECTED? 

194 1706 100410 BMI 3$ ‘BR = YES 

1948 021710 000774 2s: BR i$ = CONT INUE 

1949 02171 012777 000 90) 15770 MOV #1,aCSR + CONNECT 

1950 021720 012737 000774 02171 MOV wer, 2$ SRESTORE SWITCH 

1951 021726 000765 BR 7BR UNTIL CONNECTED 

195¢ 21730 000207 3$: RTS be SEXIT 

1954 021732 012737 000004 001730 CONID: MOV #4,COVID ZCONVERT SLAVE ID 

1955 021740 013700 001724 MOV CURID,RO SSAVE CURRANT ID 

1956 021744 001405 1$: BEQ 2s BR IF 

1957 021746 000241 CLC 

1958 021750 006137 001730 ROL COVID :SHIFT ID 

1959 021754 005300 DEC RO :COUNT DOWN TO ZERO 

1960 021756 000772 BR 1$ 

1961 1760 000207 2$: RTS PC ZEXIT 

1963 021762 012737 000122 022062 wAIT10: MOV #122, TOCK :SET CLOCK 

1964 021770 000137 022022 JMP 

1965 021774 012737 000244 022062 WAIT20: MOV #244, TOCK :SET CLOCK 

1966 022002 000137 022022 JMP WAIT 

1967 022006 000000 TRIG: 000 

1968 022010 012737 000051 022062 WAITOS: MOV #51, TOCK rSET CLOCK 

1969 022016 000137 022022 JMP 

1970 022022 013737 001746 022060 WAIT: MOV TIMA, TICK :SET BASE TIMER 

1971 022030 005777 157566 1$: TST acsR 

1972 022034 000400 BR .+ 

1973 022036 005337 022060 DEC TICK 

1974 022042 001372 BNE 1$ 

975 022044 005337 022062 DEC TOCK 

1976 022050 001364 BNE WAIT 

1977 022052 005237 022062 INC TOCK 

1978 022056 000207 RTS PC 

1979 022060 000000 TICK: 0 

1980 022062 000000 TOCK: 0 

1981 

1982 

1983 

1984 

1985 022064 005000 SYNCUP: CLR RO sSET DELAY TIME 

1986 022066 012701 000400 MOV #400,R1 

1987 022072 032777 020000 157522 1$: BIT #20000,aCSR :BUSS ACTIVE? 

1988 022100 001434 BEQ 2$ :BR=NO 

1989 022102 005200 INC RO STIME OUT 

1990 022104 001372 BNE 1$ 

1991 022106 005301 DEC R1 

1992 022110 001370 BNE 1$ 

1993 022112 104401 022120 TYPE 65$ i: TYPE ASCIZ STRING 
(1) 022116 000420 BR 643 OVER THE ASCIZ 
(1) 3:65$: .ASCIZ 23B0>/Syncroni zation. FAILURE! CSR= / 
(1) 022160 64$: 

1994 022160 017746 157436 MOV acsR,-(SP) z:SAVE @CSR FOR TYPEOUT 
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USER ROUTINES 


2$: 
3$: 


4$: 


SEQMAK: 


5$: 


6$: 


001744 MASMEN: 


TYPOC 
HALT 


CONSTRUCT SEQUENCER 
Vv #PORTNO,R1 


33G0 TYPE--OCTAL ASCII(ALL DIGITS) 


R - gRESET DELAY TIME 
#26000, aCSR :BUSS ACTIVE? 
4$ ‘BR=YES 
RO sTIME OUT 
3$ 
R1 
3$ 
67$ zz TYPE ASCIZ STRING 
é GET OVER THE ASCIZ 


6$ °s 
<200>/MASTER PORT DIDN'T TAKE SHARED BUSS! CSR= / 


acSR,-(SP) 7sSAVE @CSR FOR TYPEOUT 

22:GO TYPE--OCTAL ASCII(ALL DIGITS) 
72 
PC sEXIT 


MO ? :STORE ADDRESS OF DATA 
MOV #TEMP1 R2 ‘SET TEMPORARY STORAGE POINTER 
MOV #SEQ,R3 ‘LOAD FIRST SEQUENCER ADDRESS 
CLR EXPTCT ‘CLEAR PORT COUNT 

MOV (R1)+, (R2)+ ‘FILL TEMP 

INC EXPTCT :COUNT THEM 

TST ari ‘LAST ONE 

BPL 1$ 7BR= 

MOV #1, aR2 S TERMINATE DATA 

CLR [LOAD DETECTOR 

MOV ATEMP1 ,R2 ‘RESET DATA POINTER 

CMP R1, (Red *1D FOUND? 

BEQ $ ‘BR=YES 

TST (R2)+ [STEP AND TEST FOR LAST 

BPL 3$ *BR IF NOT DON 

INC R1 :STEP DETECTOR 

CMP #4,R1 SCHECK FOR DONE 

BNE 2$ ‘BR IF NOT DONE 

BR 6$ [FINISH UP 

MOV aR2, (R3)+ *LOAD SEQUENCER 

MOV #400, aR2 TERASE ENTRY 

BR 4$ : CONTINUE 

DEC EXPTCT *CORRECT EXTERNAL PORT COUNT 
MOV #-1,aR3 [TERMINATE SEQUENCER 

RTS PC EXIT 


MOV 
JSR 
MOV 


sROUTINE TO ASSEMBLE MENUS 
#~1, ONOF F 


;SET MASTER/SLAVE INDICATOR 
PC, FLUSHM :GO FLUSH 
#MENU,R1 :SET POINTER 


SEQ 0068 


-MAIN. MACY11 30A(1052) 16-NOV-81 17:26 PAGE 13-4 
1 16-NOV-81 17:16 USER ROUTINES SEQ 0069 | 


CRDTAB.P1 
2046 0 Aug 117721 157222 1$: MOVB  @NEXENT,(R1)*  ;LOAD MENU WITH SLAVE ID 
022452 112721 000001 MOVB #1,(R1)+# SLOAD FUNCTION #1 
2068 022456 004737 022764 JSR PC, STPNEX [GET NEXT SLAVE ID 
2049 0224 000771 BR CONTI 
50 0 46h 004737 022764 2$: JSR PC, STPNEX :G0 GET NEXT ID 
51 022470 000405 BR 33 SBR=NOT FINISHED 
3g 022472 012711 177777 MOV #-1,aR1 [TERMINATE ME 
5 032676 012704 001676 MOV AMENU, RS [STORE MENUS 
2054 022502 000207 RTS PC EXIT 
2055 022504 110781 157164 3$: MOVB = @NEXENT, (R1)+ 
2096 022510 112721 000002 MOVB #2, (R1)+ yLOAD FUNCTION #2 
057 022514 000763 : CONTINUE 
2059 
2060 022516 005037 001744 SALMEN: CLR ONOF F ZCLR MASTER/SLAVE INDICATOR 
2061 022522 004737 025124 JSR PC,FLUSHM :GO FLUSH MENU 
062 022526 012701 001676 MOV NU,R1 ‘SET POINTER 
2063 022532 027737 157136 001644 1$: CMP @NEXENT,PORTNO :1S THIS ME? 
022540 001070 BNE $ 7BR= 
2065 022542 117721 157126 MOVB  @NEXENT,(R1)# LOAD SLAVE ID 
2066 022546 112721 0000 MOVB #3, (R1)+# [LOAD FUNCTION 3 
2067 022552 004737 022764 2$ JSR PC. STPNEX :GO GET NEXT ID 
022556 000765 BR 1$ “BR=NOT DONE 
2069 022560 000405 BR 4$ :GO TO NEXT SET 
2070 022562 117721 157106 3$: MOVB = @NEXENT, (R1)+ 
2071 022566 112721 000005 MOVB = #5, (R1) + ZLOAD FUNCTION 5 
2072 022572 000767 BR CONTI 
2073 022574 004737 022764 4$: JSR PC, STPNEX 'GO GET NEXT ID 
2074 022600 000405 BR 5$ :GO CONTINUE 
2075 022602 012711 177777 MOV #-1,aR1 [TERMINATE MENU 
2076 022 012704 001676 MOV #MENU,R4G ‘STORE MENUS 
2077 022612 000207 RTS PC SEXIT 
2078 022614 027737 157054 001644 5$: CMP @NEXENT,PORTNO :IS THIS ME? 
022622 001014 BNE [BR=NO 
2080 022624 117721 157044 MOVB = @NEXENT, (R1)+ 
2081 022630 Meret 000004 MOVB = #4, (R1) + ZLOAD FUNCTION 4 
2082 022634 004737 022764 6$: JSR PC; STPNEX 'GO GET NEXT ID 
2083 022640 000765 BR 5$ : CONT INUE 
022642 012711 177777 MOV #-1,aR1 * TERMINATE MENU 
2085 022646 012704 001676 MOV AMENU,R4 ‘STORE MENUS 
2086 022652 000207 RTS PC TEXIT 
2087 022654 117721 157014 7$: MOVB = @NEXENT, (R1)+ 
2088 022660 112721 000005 MOVB #5, (R1) + ;LOAD FUNCTION 5 
2089 022664 000763 * CONT INUE 
2090 
2091 
209 ZROUTINE TO INIT SEQUENCER 
2094 022666 012737 001660 001672 SEQINT: MOV #SEQ,SEQPTR ZSET POINTER TO FIRST ENTRY 
2095 022674 012737 001662 001674 MOV #SEQ+2,NEXENT GET NEXT ENTRY 
2096 022702 017705 156764 MOV @SEQPTR,RS SLOAD R5 
2097 022706 000207 RTS PC EXIT 
2098 022710 062737 000002 001672 SEQSTP: ADD #2,SEQPTR ‘STEP SEQUENCER 
022716 005777 156750 TST aSEGPTR ‘CHECK FOR E 
2100 022722 100761 BMI SEQINT SRELOAD IF DONE 
2101 022724 017705 156742 MOV @SEQPTR,RS 





~ 
2 


oe 


MACY11 30A(1052) _16-NOV-81 17:26 PAGE 13-5 | 
P11. 16=NOV=81 17:16 USER ROUTINES SEQ 0070 
0 730 013737 001672 001674 MOV SEQPTR NEXENT  ;STEP NEXT ENTRY 
0227 062737 60009 001674 ADD #2 ,NEXENT 
022744 005777 156724 TST ane ZOFF THE END? 
022750 100401 BMI SBR=YES 
92 13e 000207 1$: RTS PC ‘NO! EXIT 
022754 012737 001660 001674 2S: MOV #SEQ,NEXENT SCORRECT POINTER 
022762 000773 BR 1 : 
022764 062737 000002 001674 STPNEX: ADD #2,NEXENT SSTEP NEXT ENTRY 
022772 005777 156676 TST @NEXENT ‘OFF THE END? 
022776 100003 BPL 1$ ‘BR=NO 
023000 012737 001660 001674 MOV #SEQ,NEXENT SRESET 
02 027705 156662 1$: CMP @NEXENT,R5 ‘BACK TO CURRENT DT07? 
023012 001002 BNE $ :BR= 
023014 062716 000002 ADD #2,aSP ‘SET UP FINISHED RETURN 
023020 000207 2$: RTS PC SEXIT 
023022 011637 001126 OOPS: MOV aSP BAD :SAVE ERROR PC 
023026 104401 023034 TYPE 65$ t:TYPE ASCIZ STRING 
023032 000427 BR 4$ s:GET OVER THE ASCIZ 
area 4958: -ASCIZ <200>/UNEXPECTED INTERUPT FROM DTO7 AT ADDRESS.../ 
023112 013746 001126 MOV BAD, -(SP) z:SAVE BAD FOR TYPEOUT 
023116 104402 TYPOC ':G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
023120 000000 HALT 
023122 000776 .-2 
023124 912700 001676 FLUSHM: MOV #MENU,RO zSET POINTER 
023130 012701 000013 MOV #11.,R1 ‘SET FLUSH COUNT 
023134 012720 177777 1$: MOV #-1,(RO)+ [FLUSH WITH =1 
023140 005301 DEC R1 : COUNT 
023142 001374 BNE 1$ CONT. 
023144 000207 RTS PC TEXIT 
023146 012700 001634 FLUSHP: MOV #DT03,RO ‘LOAD POINTER 
023152 012701 000017 MOV #15.,R1 [SET COUNT 
023156 012720 177777 MOV #-1.(RO)+ FLUSH 
023162 005020 CLR (ROS + 
23164 012720 177777 1$: MOV #-1, (RO)+ :FLUSH WITH =1 
023170 005301 DEC R1 + COUNT 
023172 001374 BNE 1$ CONT 
023174 000207 RTS PC EXIT 
023176 DMODE : 
023176 012737 000340 177776 3$: MOV #340,PSW ;RISE PRIORITY 
023204 012777 000001 156410 MOV #1,aCSR : CT 
023212 017737 156404 001126 4: MOV acSR,BAD SSAVE CSR 
023220 050737 000400 001126 BIT #400.BAD : LOOK FOR BRO 
023230 032737 100000 001126 BIT #100000, BAD [DID WE TIME OUT? 
023236 001765 BEQ 4$ [BR=NO 
025240 012737 177777 001634 MOV #1 ,DT03 i INDIACATE DTO3 MODE 
023250 005037 001634 5$: CLR DT03 SINDIACATE DT07 MODE 
023254 013700 001126 MOV BAD RO : 
023260 042700 177703 BIC #177703,R0 :SAVE ONLY RQO-3 
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023324 


001126 
001644 
023444 
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000340 
001746 
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156032 
156026 


001746 
023612 
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7$: 


37678: 


66$: 


DTIME: 
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USER ROUTINES 


CLC 
R 


TYPE 


<200>/ERROR! 
BAD ,~-(SP) 


72 
R2,PORTNO 
RO 

8$ 

67$ 

6$ 
<200>/ERROR! 
BAD ,-(SP) 


acsR 
PC 


#340,PSW 
TIMA 


CONVERT RQ BIT 


BIT SET? 
sBR=YES 
STEP INDIACATOR 


:T00 _— 


BR = 
:STYPE ASCIZ STRING 
GET OVER THE ASCIZ 
BRQ DETECTED WITHOUT ANY RQ. BIT SET. 


SAVE BAD FOR TYPEOUT 
:260 TYPE=-OCTAL ASCII(ALL ae 
:FATAL ERROR BRQ SEEN BUT 
sLOAD PORT ID# 
MAKE SURE ONLY ONE RQ IS PRESENT 
zi TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
MORE THAN ONE RQ. BIT SET. 


3-SAVE BAD FOR TYPEOUT 
2::GO TYPE--OCTAL ASCII(ALL DIGITS) 


CSR= / 


CLEAR AND DISCONNECT AND EXIT 


sLOCK OUT INTERUPTS 
7CLEAR TIMERS 
: CLEAR DEVICE 

MAKE SURE IT'S CLEAR 


SET REQ 

:TMO SET? 

sBR=YES 
OUNT 


ss Twe ASCIZ STRING 
OVER Ly ASCIZ 


=GET 
<200>/ERROR! TIMING TOO LONG!/ 


nh “ScsR 
ac csr 


18 ay 


LOWER PRIORITY 
2 CONNECT 
: CONNECTED? 


sCLAER WATCHDOG TIMER 
RISE PRIORITY 


CSR= / 
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CROTAB.P11  16=-NOV-81 17:16 USER ROUTINES SEQ 0072 — 
199 023700 005377 15571 DEC acsR :DROP REQ 
200 92 704 005777 15571 5$: TST acsr ‘LOOK FOR TMO 
201 023710 10043 BMI 65 *BR=F OUND 

220, i 712 005237 001750 INC TIMB 
2203 023716 001372 BNE $ 
2204 023720 104401 023726 TYPE 67$ zzTYPE ASCIZ_ STRING 
(1) 000421 BR T OVER THE ASCIZ 
(1) -67$: .ASCIZ <200>/ERROR! WATCHDOG TIMING TOO LONG!/ 
(1) 023770 bas: 
3205 023770 000000 HALT 
206 023772 013700 001746 6$: MOV TIMA,RO :COMPARE TIMING FOR PROPER RATIO 
2207 023776 013701 001750 MOV TIMB,R1 
2208 024002 905002 CLR R 
2209 034 012703 000031 MOV #25. R3 
2210 024010 060002 7$: ADD RO,R2 :MULTIPLY TIMA BY 25 
2211 024012 005303 DEC R3 
e212 024014 001375 BNE 7$ ;BR=NOT DONE 
2213 024016 160102 8$: SUB R1,R2 ‘DIVIDE TIMA BY TIMB 
2214 024020 00520 INC RS" 
2215 024022 020102 CMP 1,R2 DONE? 
2216 024026 101774 BLOS He *BR=NO 
2217 024026 020327 000033 CMP R3,433 [TOO LOW? 
2218 024032 103034 BHIS 9$ [BR= 
2219 026034 104401 024042 TYPE ,69$ 3a TYPE ASCIZ STRING 
(1) 024040 000427 BR 68$ [GET OVER THE ASCIZ 
(1) 3:69$: .ASCIZ <200>%ERROR! WATCHDOG/REQUEST TIMER RATIO TOO LOw!% 
(1) 024120 é8s: 
2220 024120 HALT 
2221 024122 000776 BR .-2 
2222 024124 020327 000044 9$: CMP R3, 444 :T00 HIGH? 
2223 024130 101435 BLOS)3=s«éW$ *BR=NO 
2224 024132 104401 024140 TYPE is za TYPE ASCIZ STRING 
(1) 024136 000430 BR 0$ OVER THE ASCIZ 
(1) -:71$: .ASCIZ <200>RERROR! WATCHDOG/REQUEST TIMER RATIO TOO HIGH!% 
(1) 024220 70S: 
2225 024220 000000 HALT 
2226 024222 000776 BR 72 
2227 024226 005077 155372 11$: CLR acs ZCLEAR AND DISCONNECT 
2228 024230 000207 RTS PC 
$55 
2231 zPROGRAM PARAMETER INPUT ROUTINE 
2233 024232 012737 177777 026426 GETADR: MOV #~1,PARFLG ZSET PARFLG 
2234 024240 005037 001760 CLR USEPAR [CLEAR FLAG 
2235 024244 004737 023146 JSR PC, FLUSHP ‘GO FLUSH OUT PARAMETER BLOCK 
2236 024250 104401 024256 TYPE 63s zi TYPE ASCIZ STRING 
(1) 024254 000433 BR T OVER THE ASCIZ 
(1 sites $58: ASCI2 2300>/00 YOU WANT’ TO CHANGE THE DEVICE ADDRESSES?(Y OR ND/ 
2237 024.344 104410 RDCHR 
2238 024346 012600 MOV (SP)+,RO ZSTORE CHAR. 
2239 024350 110037 026430 MOVB = RO, ECHOB 
2240 0246354 104401 026430 TYPE  ,ECHOB 
2241 0246 022700 000131 CMP #*Y,RO sYES? 
2242 026364 00117 BNE 10$ *BR=NO 
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USER ROUTINES 


11$: 


:71$: 


+S: 


12$: 
14$: 


de 


13$: 
10$: 


PARIN: 


TYPE 
BR 
eASCIZ 
TYPE 
-ASCIZ 


MOV 
TYPOC 
TYPE 
RDOCT 
MOV 
BEQ 
MOV 
TYPE 
BR 
-ASCIZ 


TYPE 


JSR 


67$ 33 TYPE ASCIZ sre 
TO THE A 


SEQ 0073 


6$ VER C12 
<200>/IN THE rovidwIne. THREE PRINTOUTS TYPE THE NEW DATA OR O IF NO CHAN 


698 ii TYPE ASCIZ STRING 
“GET OVER THE ASCIZ 
oSD0>/DEVICE ADDRESS= / 


CSR,-(SP) 3-SAVE CSR FOR TYPEOUT 
32G0 TYPE--OCTAL ASCII(ALL DIGITS) 


SPACE 
(SP)+,R0 zSTORE INFO 
RO, SBASE 
71$ ii TYPE ASCIZ STRING 
0$ GET jpver THE ASC1Z 
<200>/DEVICE VEC cToR 
$VECT1.RO 
#177006 RO 
RO,-(SP) z:SAVE RO FOR TYPEOUT 
7:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
SPACE 
(SP)+,RO 
12$ 
RO,R1 sSAVE IT TEMPORARILY 
14$ : JUMP OVER NEXT TWO LINES 
$VECT1,R1 :SAVE OLD VECTOR ADDRESS 
#177000,R1 *MASK OUT JUNK 
73$ ii TYPE ASCIZ STRING 
2$ T OVER THE ASCIZ 
<200>/BREAK LEVEL= / 
$VECT1,_RO 
#777 RO 
RO,-(SP) z:SAVE RO FOR TYPEOUT 
1:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
» SPACE 
(SP)+,RO 
13$ 
RO 
R1,RO 
RO. $VECT1 
#777, $VECTI 
R1,$VECT1 
PC :RETURN 


PC,,GETADR 
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CROTAB.P11.  16=NOV=81 17:16 USER ROUTINES SEQ 0074 
2282 024762 012737 024774 002672 MOV WREPAR,ROUTE §; SET RETURN 
ssh 024770 000137 001762 JMP START 
2285 024774 REPAR=. 
2286 024774 004737 023176 JSR PC, DMODE :GO GET MODE AND ID# 
2287 025000 004737 023540 JSR PC DTIME 760 GET DEVICE TIMING 
2288 025004 005737 001634 TST p63 SWHAT MODE ? 
2289 025010 001422 BEQ 20$ : 7 
2290 025012 104401 025020 TYPE 65$ is TYPE ASCIZ STRING 
(1) 025016 000416 BR 64$ T OVER THE ASCIZ 
(1) +:65$: .ASCIZ <200>/THIS DT07 is ON DT03 MODE./ 
(1) 025054 64$: 
2291 025054 000421 BR 1$ :CONTINUE AT 1$ 
2292 025056 20S: 
(1) 025056 104401 025064 TYPE ,67$ sine ASCIZ STRING 
(1) 025 000413 BR 66$ GET OVER THE ASCIZ 
(1) ::67$: .ASCIZ <200>/THIS DT07 1S PORTA 
(1) 025112 66$: 
2293 025112 013746 001644 MOV PORTNO,-(SP) ; SAVE PORTNO FOR TYPEOUT 
(1) 025116 104402 TYPOC 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
2294 025120 1$: 
(1) 025120 104401 025126 TYPE ,69$ i TYPE ASCIZ STRING 
(1) 025124 000447 BR 68$ *GET OVER THE ASCIZ 
se seal 698: -ASCIZ <200>/TYPE THE ADDRESS OF AN EXTERNAL DEVICE REGISTER ON THE SHARED BUSS 
2295 025244 10441 RDOCT 
2296 025246 012637 001636 MOV (SP) +,DEVAD :STORE IN DEVAD 
2297 025252 001523 BEQ 2$ :SKIP OVER NEXT TWO QUESTIONS IF NO DEVICE 
2298 025254 104401 025262 TYPE 71$ 33 TYPE ASCIZ STRING 
(1) 025260 000442 BR 0$ °GET OVER THE ASCIZ 
(1) -:71$: .ASCIZ <200> % TYPE AN OCTAL MASK OF READ/WRITE BITS IN ABOVE DEVICE REGISTER.. 
(1) 025366 70$: 
2299 025366 104412 RDOCT 
2300 025370 012637 001640 MOV (SP) +, DEVRW :STORE BIT PATTERN 
2301 025374 104401 025402 TYPE 73$ 33 TYPE ASC1Z STRING 
(1) 025400 00044 BR 2$ OVER THE ASCIZ 
(1) aed 55738: -ASCIZ <200> % TYPE AN OCTAL MASK OF RESET-CLEARABLE BITS IN ABOVE DEVICE REGIS 
2302 025514 104412 RDOCT 
2303 025516 012637 001642 MOV (SP) +,DEVRC ;STORE BIT PATTERN 
2304 025522 005737 001634 2$: TST DT03 NO NEED TO CONTINUE IF DTO3 MODE 
2305 025526 001067 BNE 7$ {BR=DT03 
2306 0255 3$:4$: 
(1) 025530 104401 025536 - TYPE 75$ zi TYPE ASCIZ STRING 
(1) 025534 000427 BR 74$ GET OVER THE ASCIZ 
(1) -:75$: .ASCIZ <200>/HOW MANY OTHER PORTS ARE THERE TO BE TESTED?/ 
(1) 025614 74$: 
2307 025614 104412 RDOCT 
2308 025616 012637 001656 MOV (SP)+,EXPTCT | ;STORE EXTERNAL PORT COUNT 
2309 025622 001431 BEQ ? 26 
23106 025624 012700 001646 5$: MOV #EXPRT1,RO *SET POINTER 
2311 025630 013701 001656 MOV EXPTCT,R1 
2312 025634 6$: 
(1) 025634 104401 025642 TYPE 77s ii TYPE ASCIZ STRING 
(1) 025640 000416 BR “GET OVER THE ASCIZ 
(1) ::77$: .ASCIZ “Sho /TvPE IN EXTERNAL PORT ID.. 
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CRDTAB.P11 16-NOV=81 17:16 USER ROUTINES SEQ 0075 
(1) 025676 76$: 
2313 025676 104412 RDOCT 
314 025700 012620 MOV (SP)+, (RO)+ i STORE 17 
2315 025702 005301 DEC RI SCOUNT IT 
2316 025704 001353 BNE 6$ [CONTINUE LOAD IF NOT DONE 
2317 025706 7$: 
(1) 025706 104401 025714 TYPE 79$ i: TYPE ASCIZ STRING 
(1) 025712 000422 BR 78$ [GET OVER THE ASCIZ 
(1) -:79$: .ASCIZ <200>/SELECT TEST. (O FOR HELP MESSAGE)/ 
(1) 025760 78S: 
2318 025760 104412 RDOCT 
2319 025762 012600 MOV (SP)+,RO 
2320 025764 001003 BNE $ 
2321 025766 104401 034651 TYPE SELMS 
2322 025772 000745 BR *$ 
2323 025774 022700 000004 8$: CMP #4,RO sTEST FOR NPR? 
2324 026000 001002 BNE 18$ 
2325 026002 000137 026652 JMP TSTNPR £60, CHECK FOR NPR LINE 
2326 026006 022700 000004 18$: CMP #4 ,RO ALID TEST? 
2327 026012 101016 BHI 9$ 
2328 026014 104401 026022 TYPE 81$ i: TYPE ASCIZ STRING 
(1) 026020 000412 BR 0$ T OV ER THE ASCIZ 
(1) -81$: .ASCIZ <200>/INVALID SELECTION!/ 
(1) 026046 bos: 
2329 026046 000717 BR 7$ 
2330 026050 022700 000002 9$: . CMP #2,RO0 :MULTIPORT? 
2331 026054 001044 BNE 1 *BR=NO 
2332 026056 005737 001656 TST EXPTCT SONLY ONE PORT? 
2333 026062 001041 BNE 21$ BR= 
2334 026064 005737 001634 TST DT03 [D103 MODE? 
2335 026070 001036 BNE 21$ *BR=YE 
2336 026072 104401 026100 TYPE 83$ 73 TYPE ASCIZ STRING 
(1) 026076 000432 BR 23 [GET OVER THE ASCIZ 
(1) -:;83$: .ASCIZ <200>/CAN NOT RUN’ THE MULTIPORT TEST WITH ONLY ONE PORT!/ 
(1) 026164 82s: 
2337 026164 0006 BR 7$ 
2338 026166 022700 000002 21$: CMP #2,RO0 sMULTIPORT TEST? 
2339 026172 001057 BNE 22$ 
2340 026174 104401 026202 TYPE 85$ i TYPE ASCIZ STRING 
(1) 026200 000454 BR 843 T OVER THE ASCIZ 
(1 scale 5858: -ASCIZ <200>/THE DTO7 vitae THE LOWEST PORT# MUST BE STARTED LAST WHEN RUNNING/< 
2341 026332 000241 CLC 
2342 026334 006100 ROL RO 
2343 026336 016016 026434 MOV TX(RO), (SP) 
2344 026342 104401 026350 TYPE th es tye ASCIZ STRING 
(1) 026346 000424 BR *GET OVER THE ASCIZ 
(1) -:87$: .ASCIZ -,: <CR> WHEN READY TO CONTINUE TEST./ 
(1) 026420 86S: 
2345 026420 104410 RDCHR 
2346 026422 012600 MOV (SP)+,RO 
2347 026424 000207 RTS PC ZEXIT 
2348 026426 000000 PARFLG: 000 “PARAMETERS PRESENT FLAG 
2349 026430 000 200 000 ECHOB: .BYTE 0,200.0 TECHO BYTE 
3350 026434 “EVEN 
351 026434 000000 TX: 
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USER ROUTINES 


ERROUT: 


FLAG: 
CKADR: 


CNTLC: 


(SP)+,RO 
65$ 


+ POP STACK_INTO RO 


4$ ;3GET O 
<200>/UNEXPECTED TRAP TO VECTOR 4 FROM../ 


RO,-(SP) 
START 


4(SP) ,@#ERRVEC 


2(SP) ,4(SP) 
(SP) ,2(SP) 


R2,~(SP) 

DEVAD ,R2 
@#ERRVEC ,-(SP) 
#ERROUT , @#ERRVEC 
FLAG 

(R2) 


(SP) + 
R2,(SP)+ 
PC 


asTKS 

1$ 

a$TKB,-(SP) 
aati, (SP) 

#3, (SP) + 

1$ 


ROUT3 
PC 


3zSAVE RO FOR TYPEOUT 


2:GO TYPE--OCTAL ASCIICALL DIGITS) 


sADJUST STACK 


PS 
PC 


sSAVE R2 
SDEVICE ADDRESS IN R2 
; SAVE OUP EU TRAP ABDA 


AP ADDRESS 
sINITIALIZE FLAG 
IS ADDRESS ADDRESSABLE? 


RESTORE OLD TRAP ADDRESS 
sRESTORE R2 


1S CHAR THERE? 
iN oy By ing 
T CHAR ON STACK 
STRIP OF F — BITS 
AS IT CONTROL C 


ETURN 
[GO TO START AGAIN 


SEQ 0076 
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CRDTAB.P11 16=NOV-81 17:16 USER ROUTINES SEQ 0077 

2394 8 
Stee ;CHECK OUT NPR LINE ON THE SWITCH BUS 
2397 026652 TSTNPR: 
2398 026652 005037 027404 CLR PASS :CLEAR PASS COUNT 
2399 026656 005037 027410 CLR NUM ‘CLEAR NUM 
2400 104401 026670 TYPE £938 ii TYPE ASCIZ STRING 

(1) 02 000417 BR 64$ “GET OVER THE ASCIZ 

(1) ::65$: .ASCIZ <200>/TEST NPR LINE ON SWITCH BUS/ 

(1) 026726 64$: 
2401 026726 104401 026734 TYPE ,67$ is TYPE ASCIZ STRING 

(1) 026732 000415 BR 66$ ‘GET OVER THE ASCIZ 

(1) ::67$: .ASCIZ <200>/TYPE CONTROL C TO EXIT/<200> 

(1) 026 é$: 
2402 026766 R: 
2403 026766 004737 026620 » ‘JSR PC, CNTLC z1S IT CONTROL C? 
2404 026772 005237 027410 ‘INC NUM : COUNT NUMBER OF ITERATION 
2405 026776 012737 000003 027406 MOV #3,BRCNT [COUNTER FOR BR LEVEL 
2406 027006 012702 027460 MOV #BRLV,R2 *POINTER 10, BRLEVEL TABLE 
2407 027010 012706 001100 MOV #STACK, SP SRESTORE STA 
2408 027014 012737 000000 177776 MOV #0,PSW : DROP PRIORITY 

409 027022 012777 000001 152572 MOV #REQ,aCSR * CONNECT 
2410 027030 105777 152566 7$: TSTB = aC SR : CONNECTED? 
2411 027034 100421 BMI $ *BR IF YES 
2412 027036 005777 152560 TST acsR TIME our? 
2413 027042 100372 BPL 7$ :BR IF 
2414 027 017737 152552 001126 MOV acCSR,BAD : STORE CONTENT OF CSR 
2415 027052 013737 001752 001124 MOV KONST , GOOD : 
2416 027060 062737 020201 001124 ADD #20201, GOOD ‘STORE GOOD DATA 
2417 027066 104006 ERROR+6 *COUNTN'T CONNECT 
2418 027070 005077 152526 CLR acsR :CLEAR CSR 
2419 027074 000137 002612 JMP ROUT3 
2420 027100 8$: 
2421 027100 004737 026620 JSR PC, CNTLC : 
2422 027104 022702 027470 CMP #BREND ,R2 [1S IT END OF TABLE? 
2423 027110 001504 BEQ Be SYES:BR 
2424 027112 012706 001100 MOV WSTACK, SP SRESTORE STACK 
2425 027116 012737 000340 177776 MOV #340, aaPSwW ‘LOCK OUT INTERRUPT 
2426 027124 004737 030020 JSR PC, CLRREG [CLEAR ALL UBE REGISTER 
2427 027130 005037 027434 CLR BUFF 1 ;CLEAR BUFF LOCATION 
2428 027134 012777 177777 000250 MOV #177777,aBEBD :LOAD UBE DATA REG WITH TEST DATA 
2429 027142 012777 027434 000246 MOV WBUFF1,a@BEBA § :LOAD UBE ADDRESS REG WITH BUFF ADR 
2430 027150 012777 177777 090236 MOV #177777, @BECC SET UBE TO DO ONE CYCLE 
2431 027156 012777 003041 000234 MOV #3041,aBECR1  § :HAVE UBE SEND DATA VIA NPR 
2432 027164 000240 NOP ‘ALLOW UBE TO SET BUS 
2433 027166 004737 030074 JSR PC, CRDY :CHECK READY SET 
2434 027172 005704 TST RG “DID RDY 
2435 027174 001037 BNE 1$ ‘BRANCH TO ERROR IF RDY DIDN'T SET 
2436 027176 005737 0274634 TST BUFF 1 ‘WAS DATAO DONE? 
2437 027202 001445 BEQ 2$ [BRANCH TO ERROR IF NPR NOT DONE 
2438 027204 005037 027434 CLR BUFF 1 ‘CLEAR BUF LOCATION 
2439 027210 005037 027436 CLR BUFF 1+2 [CLEAR BUF LOCATION PLUS 2 
2440 027214 012777 027262 000204 MOV #3$ aINTVEC :SETUP FOR INTERRUPT 
2441 027222 012777 027434 000166 MOV #BUFF1,@BEBA  :LOAD TEST ADDRESS 
2442 027230 012777 177777 000156 MOV #177777, aBECC :SETUP UBE TO DO 1 CYCLE 
2443 027236 005237 027406 INC BRCNT [COUNT BR LEVEL 
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CRDTAB.P11 6-NOV-81 17:16 USER ROUTINES SEQ 0078 


027242 012277 000152 MOV (R2)+,@BECR1 | ;HAVE UBE DO DATO NPR+INT 
ZWHEN DONE vA DIFF BR LEVEL 

027246 005037 177776 CLR aaPSw TALLOW UBE TO INTERRUPT 
027252 004737 030074 JSR PC,CRDY sWAIT FOR INTERRUPT OR READY TO SET 
027256 104025 ERROR+25 
027260 000443 BR 4$ sRESTORE TRAP 
027262 005737 027436 3$: TST BUFF 1+2 ;DID NPR WRITE MORE THAN ONE LOC? 
027266 001440 BEQ 4$ :GO TO END OF TEST 

027270 104026 ERROR+26 
027272 000436 BR 4$ 
027274 104024 1$: ERROR+24 sERROR:NPR DIDN'T SET RDY 
027276 012777 006003 000114 MOV #6003,@BECR1 | HAVE UBE SET ITS READY 
027304 005037 177776 CLR aaPSW : 
027310 004737 030074 JSR PC, CRDY “WAIT TILL SET 
027314 000425 BR 4$ SRESTORE TRAP 
027316 104023 2$: ERROR+23 
027320 000423 BR 4$ 
027322 S$: 
027322 022737 001750 027410 CMP #1000. .NUM 
027330 001013 BNE 11$ 
027332 005237 027464 INC PASS 
027336 104401 030002 TYPE — , ENDMG 
027342 013746 027404 MOV PASS, =(SP) 
027346 104405 TYPDS 
027350 104401 027777 TYPE ——, NULL 
027354 005037 027410 CLR N 
027360 004737 030052 11$: JSR PC,RCATCH 

27364 000137 026766 JMP NPR 
027370 004737 030052 4$: JSR PC,RCATCH :RESTORE TRAP 

027374 004737 026620 JSR PC CNTLC : 

027400 000137 027100 JMP 8$ ; 
027404 000000 PASS 
027406 000000 BRCNT: 0 
027410 000000 NUM 0 
027412 170000 BEB “WORD 170000 
027414 170002 BECC ~ WORD 170002 

027416 170004 BEBA: .WORD 170004 

027420 170006 BECR1: .WORD 170006 
027422 170010 BECR2: :WORD 170010 
027424 170014 BERE: .WORD 170014 
027426 000510 INTVEC: .WORD 510 
027430 000000 0 
027432 000000 0 
027434 000011 BUFF1: .BLKW 11 

027456 000000 0 
027460 003143 BRLV: 143 ;DATO AT BRS 

027462 003145 145 ‘DATO AT BRS 

027464 003151 151 “DATO AT BRO 


ee —--—--— 


;DATO AT BR7 
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NE 
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USER ROUTINES 


eASC!Z /ERROR:UBE DID NOT INTERRUPT WHEN NPR F INISHED/ 
eASCIZ /ERROR: TWO LOC WRITTEN WHEN ONE NPR AND INT ON DONE ENABLE/ 


eASCIZ /ERROR:DEVICE DOESN'T EXIST ON SWITCH BUS/ 


-ASCIZ /ERROR:NPR DATO NOT DONE/ 
-ASCIZ /ERROR:NPR DID NOT SET RDY/ 
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CROTAB.P11 


-MAIN. 
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: INHIBIT ERROR PRINT OUT 


sBRANCH IF YES 
zTYPE PC OF ERROR MESSAGE 


NULL CHARACTER STRING 
zSAVE SERRPC FOR TYPEOUT 


S &#/ 


-1,6 
§><412>/END PAS 


o! 


eASCIZ <1 
PC 


; SUBROUTINE TO CLEAR ALL UBE REG 


SUBROUTINE TO TYPE PC OF ERROR MESSAGE 


-BYTE 


000 NULL: 
05 020104 ENDMG: 


23 021440 


77 


030020 


00 
04 


030010 
030016 


2510 027777 


2511 0 


ee a eae ee 
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™m 
uw 


Mun 
REer 
EWI 


USER ROUTINES SEQ 0080 
CLRREG: 
177400 CLR @BERE ;CLEAR ERROR CONDITION 
17737 CLR @BECR2 CLEAR BEC Re REG 
177 CLR @BECR1 :CLEAR BECR1 REG 
177356 CLR aBe CLE REG 
177350 CLR @BECC CLEAR BECC REG 
177342 CLR @BEBD =: CLE EG 
RTS PC 
;SUBROUTINE TO RESTORE TRAP CATCHER TO UBE VECTOR AREA 
RCATCH: MOV -(SP) rSAVE RS ON STACK 
027426 MOV Pater R5 ‘GET INTV 
TST (R5)4 SCALCULATE INTVEC+2 
177340 MOV RS aINTVEC :PUT INTVEC+2 IN INTVEC 
CLR (R5) [PUT HALT IN INTVEC#+2 
MOV (SP)+,R5 SRESTORE R5 
RTS PC 
: SUBROUTINE TO CHECK RDY BIT SET 
CRDY: CLR R4 
CLR RS 
2$: INC R5 ZUPDATE COUNTER 
177312 TSTB @BECR1 :SEE IF RDY SET 
BMI 1$ [BRANCH IF SET 
000200 BIT #200,R5 ‘AT TED> 100M1 CROSEC 
BEQ 2$ ‘CONTINUE TO LOCK FOR RDY IF RS NOT=128 
000001 MOV #1,R4 3SET R4=1 TO INDICATE ERROR 
1$: RTS PC RETURN 


ES SE <P 
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CRDTAB.P11 16-NOV-81 17:16 USER ROUTINES 
5260 ’ .NLIST MC,MD,CND 
S61 “SBTTL TYPE ROUTINE 
(2) J FARRAR AARERRERREERERAAEEEEAEEAAAEAERERARRERARERAAERARAERAERERERAREE 
(7) s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
(1) 3*7HE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) s*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) :*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
a3 s*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;* 
(1) s*CALL: 
(1) :*1) USING A TRAP INSTRUCTION 
38 a on TYPE »MESADR 3ZMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;* 
(1) 3* TYPE 
(1) 3* MESADR 
(1) ' 
(1) 030124 105737 001157 $TYPE: TSTB STPFLG 3218 THERE A TERMINAL? 
(1) 030130 BPL 1$ 37BR I 
(1) 030132 000000 HALT ;Z7HALT HERE IF NO TERMINAL 
(1) 030134 000430 BR 3$ 77 LEAVE 
(1) 030136 010046 1$: MOV RO,-(SP) z SAVE RO 
(1) 030140 017600 0060062 MOV a2(SP),RO 32GET ADDRESS OF ASCIZ STRING 
(1) 030144 122737 000001 001226 CMPB #APTENV, SENV 3; RUNNING IN APT MOD 
(1) 030152 001011 BNE 32NO,GO CHECK FOR APT CONSOLE 
(1) 030154 132737 000100 001227 BITB #APTSPOOL..SENVM ;;SPOOL MESSAGE TO APT 
(1) 0301 001405 BEQ b } 32NO,GO CHECK FOR CONSOLE 
(1) 0301 010037 030174 MOV RO,61$ +: SETUP MESSAGE ADDRESS FOR APT 
(1) 030170 004737 030414 JSR PC, SATY3 32SPOOL MESSAGE TO APT 
(1) 030174 000000 61$: -WORD 0 ssMESSAGE ADDRESS 
(1) 030176 132737 000040 001227 62$: BITB HAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
(1) 030204 001003 BNE 60$ 32 YES,SKIP TYPE OUT 
(1) 030206 112046 2$: MOVB (RO)+,-(SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 030210 001005 BNE 4$ 33 IF IT ISN'T THE TERMINAT 
(1) 030212 005726 TST (SP)+ :31F TERMINATOR POP IT OFF THE STACK 
(1) 030214 012600 60$: MOV (SP)+,RO 32 ORE RO 
(1) 030216 062716 000002 3$: ADD #2, (SP) szADJUST RETURN PC 
(1) 030222 2 RTI : RETURN 
(1) 030224 122716 000011 4$: CMPB #HT , (SP) :2BRANCH IF <HT> 
(1) 030230 001430 BEQ 
(1) 030232 122716 000200 CMPB #CRLF , (SP) : BRANCH IF NOT <CRLF> 
(1) 030236 001006 BNE 5$ 
(1) 030240 005726 TST (SP) + z;POP <CR><LF> EQUIV 
(1) 030242 104401 TYPE 3: TYPE A CR AND LF 
(1) 030244 001203 SCRLF 
(1) 030246 105037 030402 CLRB SCHARCNT ::CLEAR CHARACTER COUNT 
(1) 030252 000755 BR 2s 7:GET NEXT CHARACTER 
(1) 030254 004737 030336 5$: JSR PC .STYPEC ::G0 TYPE THIS CHARACTER 
(1) 030260 123726 001156 6$: CMPB SFILLC,(SP)+ ::1S IT TIME FOR FILLER CHARS.? 
(1) 030264 001350 BNE 2s 321F NO GO GET NEXT CHAR. 
(1) 030266 013746 001154 MOV S$NULL ,-(SP) 7:GET # OF FILLER CHARS. NEEDED 
(1) 72 AND THE NULL CHAR. 
(1) 030272 105366 000001 7$: DECB 1(SP) 3:DOES A NULL NEED TO BE TYPED? 
(1) ey 34 002770 BLT 7;BR IF NO--GO POP THE NULL OFF OF STACK 
(1) 030300 004737 030336 JSR PC, STYPEC ::GO TYPE A NULL 
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17:26 PAGE 13-17 
TYPE ROUTINE 


SCHARCNT 
7$ 


sHORIZONTAL TAB PROCESSOR 


DECB 
BR 
8$: MOVB 
9$: JSR 
B1TB 
BNE 
TST 
BR 
STYPEC: TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 
1$: CMPB 
BEQ 
INC 
SCHARCNT: 
STYPEX: RTS 


B 
- WORD 


is $rypec 
#7. $CHARCNT 


tp) 

es 

asTPs 

STYPEC 

2(SP) ,aSTPB 

aati 

SCHARCNT 
YPEX 

MLF 2(SP) 
YPEX 

(PC)+ 

PC 


one 2zeroer— 
=—-— 


3:D0 NOT COUNT AS A COUNT 
; ;LOOP 


ee 


3sREPLACE TAB WITH SPACE 
23 TYPE A SPACE 
+ ;BRANCH IF NOT AT 
STOP 


3 :POP SPACE OFF STACK 
2GET_NEXT CHARACTER 
7:WAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 
ree tS pes Ye A CARRIAGE RETURN? 


CH IF 
:EYESS“CLEAR CHARACTER COUNT 
3318 CHARACTER A LINE FEED? 
CH_IF YES 


3:COUNT TKE CHARACTER 
3 CHARACTER COUNT STORAGE 


-SBTTL APT COMMUNICATIONS ROUTINE 


ee a ne eT ea 


vB 
MOVB 


1$: TST 


2$: TSTB 
BN 


3$: 


#1,$FFLG 
#1, SMFLG 


SATYC 
#1,SFFLG 


RO,-(SP) 
R1,~(SP) 
SMFLG 


#APTENV, SENV 
#APTSPOOL , SENVM 


2 
+ eae oRO 


RO, SMSGLGT 
#4; SMSGTYPE 


PC, STYPE 


32TO REPORT FATAL ERROR 
22T0 TYPE A MESSAGE 


z2:TO ONLY REPORT FATAL ERROR 
:z:PUSH RO ON STACK 
+:PUSH R1 ON STA 
33SHOULD TYPE A MESSAGE? 
; 3 OPERATING UNDER APT? 

F NOT: BR 
3; SHOULD SPOOL MESSAGES? 
2:GET MESSAGE ADDR. 

ETURN ADDR. 

:3SEE IF “BONE, W/ LAST XMISSION? 


NO 
3:PUT ADDR IN MAILBOX 
z3FIND END OF MESSAGE 


23 SUB START OF MESSAGE 
<2 BeT MESSAGE LNGTH IN WORDS 

T LENGTH IN MAILBOX 

‘TELL APT TO “AKE MSG. 


32PUT MSG ADDR IN JSR LINKAGE 


RETURN ADDRESS 
su 199946 One St TACK 
a tat TYPE MACROS 
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CRDTAB.P11 16-NOV-81 17:16 APT COMMUNICATIONS ROUTINE SEQ 0083 | 

(1) 030562 000000 4$: -WORD 0 

(1) 030364 5$: 

(1) 0 364 105737 030652 10$: TSTB = SFFLG zzSHOULD REPORT FATAL ERROR? 

(1) 0309 9 001416 BEQ 12$ s:IF NOT: 

(1) 030572 005737 001226 TST SENV 7 RUNNING UNDER APT? 

(1) 030576 Boi sis BEQ 12$ z21F NOT: 

(1) 030600 005737 001206 11$: TST SMSGTYPE :zFINISHED LAST MESSAGE? 

(1) 030604 001375 BNE s:1F NOT: WAIT 

(1) 030606 017637 001210 MOV @4(SP),SFATAL ;;GET ERROR # 

(1) 030614 062766 000002 00000: ADD #2,4(SP) > :BUMP RETURN ADDR. 

(1) 030622 005237 0012 INC SMSGTYPE Z:TELL APT TO TAKE ERROR 

(1) 030626 105037 03065 12$: CLRB ss SFFLG t:CLEAR FATAL FLAG 

(1) 030632 105037 030651 CLRB = SLFLG Z:CLEAR LOG FLAG 

(1) 030636 105037 030650 CLRB ss SMFLG Z:CLEAR MESSAGE FLAG 

(3) 030642 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

(3) 030644 012600 MOV (SP)+.RO ::POP STACK INTO RO 

(1) 030646 000207 5 PC +: :RETURN 

(1) 030650 000 G: .BYTE 0 7:MESSG. FLAG 

(1) 030651 000 SLFLG: .BYTE 0 7:L0G FLAG 

(1) 030652 000 SFFLG: .BYTE 0 7:FATAL FLAG 

(1) 030654 .EVEN 

(1) 000200 APTSIZE=200 

(1) TENV=001 

(1) 000100 APTSPOOL=100 

(1) TCSUP=040 

365 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 

(2) FF AAAARAARAREERAEEEREREREREEREREERERAERAEEREEEREREERAEERREREREREREEEE 

(1) z*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

(1) :*CHANGE IT TO BINARY. 

(1) 3*CALL: 

(1) 3* RDOCT 7zREAD AN OCTAL NUMBER 

(1) : RETURN HERE 7:LOW ORDER BITS ARE ON TOP OF THE STACK 

(> i* ::HIGH ORDER BITS ARE IN $HIOCT 

(1) 030654 011646 SRDOCT: MOV (SP) ,=(SP) zzPROVIDE SPACE FOR THE 

(1) 030656 016666 000004 000002 MOV 4(SP) ,2(SP) +: INPUT NUMBER 

(3) 030664 010046 MOV 0,-(SP) ::PUSH RO ON STACK 

(3) 030666 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

(3) 030670 010246 MOV R2,-(SP) :ZPUSH R2 ON STACK 

(1) 030672 104411 1$: RDLIN ::READ AN ASCIZ LINE 

(1) 030674 012600 MOV (SP)+,RO 7:GET ADDRESS OF 1ST CHARACTER 

(1) 030676 005001 CLR R1 Z: CLEAR DATA WORD 

(1) 030700 005002 CLR R2 

(1) 030702 112046 2s: MOVB (RO)+,-(SP) zzPICKUP THIS CHARACTER 

(1) 030704 001412 BEQ 3$ t:1F ZERO GET OUT 

(1) 030706 006301 ASL R1 site 

(1) 030710 006102 ROL R2 

(1) 030712 006301 ASL R] 32*4 

(1) 030714 006102 ROL R2 

(1) O30718 006301 ASL R1 338 

(1) 030720 006102 ROL R2 

(1) 030722 042716 177770 BIC #*C7, (SP) zzSTRIP THE ASCII JUNK 

(1) 030726 062601 ADD (SP)+,R1 ::ADD IN THIS DIGIT 

(1) 030730 000764 BR $ 3: LOOP 

(1) 030732 005726 3$: TST (SP)+ :: CLEAN TERMINATOR FROM STACK 


G6 7 
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AB.P11 “NOV-81 17:16 READ AN OCTAL NUMBER FROM THE TTY 
030734 0101 12 MOV R1,12(SP) z:SAVE THE RESULT 
930740 10237 030754 MOV R2,$HIOCT 
30744 12600 MOV (SP)+,R2 r2P0P STACK INTO R2 
0 246 012601 MOV (SP)+.R1 :3POP STACK INTO R1 
030750 012600 MOV (SP)+-RO ::POP STACK INTO RO 
030752 000002 RTI +: RETURN 
030754 000000 SHIOCT: .WORD 0 :ZHIGH ORDER BITS GO HERE 
.SBTTL TTY INPUT ROUTINE 
3 RRAAAEAAAAAAEKEARAAAAAARAEEEAREAAERAAAAARARARAAEAARAEEARAREEEEREREKREEE 
-ENABL LSB 
FRRARAAAAAEEARAEREEAREERERERERAREREREREREREERERERERERRREREREREREE 
; SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
teSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
WHEN OPERATING IN TTY FLAG MODE. 
030756 022737 000176 001140 $CkKSWR: CMP ASWREG, SUR 3531S THE SOFT~SWR SELECTED? 
030764 001074 BNE 15$ CH IF NO 
030766 105777 150152 TSTB = @$ TKS 33 CHAR THERE? 
030772 100071 BPL 15$ :IF NO, DON'T WAIT AROUND 
030774 117746 150146 MOVB  a$TKB,-(SP) ':SAVE THE CHAR 
031000 042716 177600 BIC wrci7e (SP) ii STRIP-OFE THE ASCII 
031004 022726 000007 CMP SP5+ 318 ITA CONTR ROL G6? 
031010 001062 BNE 1Zg'S RETURN TO USER 
031012 123727 001134 000001 CMPB sAuroe.#1 ‘ARE WE RUNNING IN AUTO-MODE? 
031020 001456 BEQ 15$ S:BRANCH IF YES 
031022 104401 031503 TYPE  ,$CNTLG z2ECHO THE CONTROL-G (*G) 
031026 104401 031 310 SGTSWR: TYPE  ‘$MSWR *: TYPE CURRENT CONTENTS 
031032 013746 00017 MOV SWREG, -(SP) Z3SAVE SWREG FOR TYP 
031036 104402 TYPOC TyPE=-OCTAL ASCITCALL DIGITS) 
031040 104401 031521 TYPE  ,SMNEW : {PROMPT FOR 
031044 005046 19$: CLR =(SP) [: CLEAR COUNTER” 
031046 005046 CLR -(SP) ss NEW SWR 
031050 105777 150070 7$: TSTB = a$ TKS [:CHAR THERE? 
031054 100375 BPL 7$ ‘:IF NOT TRY AGAIN 
031056 117746 150064 MUVB = @$TKB, -( SP) z:PICK UP CHAR 
031062 042716 177600 BIC ae ttee, (SP) S:MAKE IT 7-BIT ASCII 
021627 000025 9$: CMP (SP) #25 31S IT A CONTROL =U? 
031072 001005 BNE 1 [:BRANCH IF NOT 
031074 104401 031476 TYPE ,$CNTLU 33YES, ECHO CONTROL-U (*u) 
031100 062706 000006 20$: ADD #6, SP ZIGNORE P REVIOUS INPUT 
031104 000757 BR 19$ S:LET'S TRY IT AGAIN 
031106 021627 000015 10$: CMP (SP) #15 z31S IT A <CR>? 
031112 001022 BNE 16$ sBRANCH IF NO 
031114 005766 000004 TST 4(SP) S:YES, IS IT THE FIRST CHAR? 
031120 001403 BEQ 11$ [BRANCH IF YES 
031122 016677 000002 150010 MOV 2(SP) ,aSwR T:SAVE NEW SWR 
031130 062706 000006 11$: ADD 46,SP [CLEAR UP STACK 
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11. 16=NOV-81 17:16 Y INPUT ROUTINE SEQ 0085 
031134 104401 901203 146$: TYPE SCRLF i zECHO <CR> AND <LF 

031140 123727 001135 000001 CMPB sd SINTAG #1 + RE-ENABLE TTY KBD INTERRUPTS? 
031146 001003 BNE ::BRANCH IF NOT 

031150 012777 000100 147766 MOV #100, a$TkS + RE-ENABLE TTY KBD INTERRUPTS 
031156 00000 15$: — RTI + :RETURN 

031160 004737 030336 16$: JSR PC,STYPEC S:ECHO CHAR 

031164 021627 000060 CMP (SP) ,#60 t:CHAR < 0? 

931120 B9eeso BLT 7 BRANCH IF YES 

031172 021627 000067 CMP (SP) #67 t:CHAR > 77 

031176 003015 BGT 18$ i BRANCH IF YES 

031200 042726 000060 BIC #60, (SP)+ iE STRIP “OFF ASCII 

031204 766 000002 TST 2(SP) 71S THIS THE FIRST CHAR 
031210 001403 BEQ 17$ 3 3BR CH IF YES 

031212 006316 ASL (SP) ::NO, SHIFT PRESENT 

031214 006316 ASL (SP) t: CHAR OVER TO MAKE 

031216 006316 ASL (SP) :: ROOM FOR NE ; 

031220 005266 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 

031224 056616 177776 BIS =2(SP), (SP) ::SET IN NEW CHAR 

031230 000707 BR t:GET THE NEXT ONE 

031232 104401 001202 18$: TYPE $QUES +: TYPE ?<CR><LF> 

031236 000720 the BR 30s ::SIMULATE CONTROL-U 


FAERRERRREEREKEEREEREEEEEREEEEREEEREEEEEREERAERREREAERRERRERRREREEEE 


ZATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


* RDCHR +3 INPUT A SINGLE CHARACTER FROM THE TTY 
* RETURN HERE ZCHARACTER IS.ON THE STACK 
: t:WITH PARITY BIT STRIPPED OFF 

031240 011646 SRDCHR: MOV (SP) ,-(SP) sPUSH DOWN THE PC 

031242 016666 000004 000002 MOV 4 (SP), 2(SP) +? SAVE THE PS 

031250 105777 147670 1$: TSTB~—s._ a$TK :iWAIT FOR 

031254 100375 BPL 1S A CHARACTER 

031256 117766 147664 000004 MOVB = a$ST. SP) S:READ THE TTY 

031264 042766 177600 000004 BIC rier Ne 4(SP) ::GET RID OF JUNK IF ANY 

031272 026627 000004 000023 CMP 4(SP) #23 ::1S IT A CONTROL-S? 

1300 001013 BNE ::BRANCH IF NO 
031302 105777 147636 2s: TSTB = a$TKS t:WAIT FOR A CHARACTE 
1306 100375 BPL 2$ ::LOOP UNTIL ITS THERE 

031310 117746 147632 MOVB  a$TKB,-(SP) 7:GET CHARACTER 

031314 042716 177600 BIC ae ttee, (SP) S:MAKE IT 7-BIT ASCII 

031320 022627 000021 CMP (SP)+,#21 t:1S IT A CONTROL- 

031324 001366 BNE 2$ t:1F NOT DISCARD IT 

031326 000750 BR 1$ 7:YES, RESUME 

031330 026627 000004 000140 3s: CMP 4(SP) #140 ::1S IT UPPER CASE? 

031336 002407 BLT 4$ 33BRANCH IF YE 

031340 026627 000004 000175 CMP 4(SP) #175 t:1S IT A SPECIAL CHAR? 

031346 003003 BGT 4$ +:BRANCH IF YES 

031350 042766 000040 000004 BIC #40,4(SP) ‘MAKE IT UPPER CASE 

031356 000002 4$: RTI =:G0 BACK TO USER 


PTIIIITITITITIIIIIIIILIIILILIIIIT TLL LLL LLL 
THIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
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AB.P11. - 16=NOV-81 17:16 Y INPUT ROUTINE SEQ 0086 

:* RDLIN ZINPUT A STRING FROM THE T 
ie RETURN HERE : ADDRESS OF FIRST OHARAETER "ytut BE ON THE STACK 
* :: TERMINATOR WILL BE A BYTE OF ALL O'S 

031360 B10sK8 SRDLIN: MOV ZzSAVE R3 

031362 012703 031466 1$: MOV peas ay R3 z3GET ADDRESS 

031366 022703 031476 2$: CMP WSTTYINB.,R3 = :BUFFER FULL? 

031372 101405 BLOS 4$ 7:BR IF YES 

031374 104410 RDCHR *:GO READ ONE CHARACTER FROM THE TTY 

031376 112613 MOVB (SP) +, (R3) S:GET CHARACTER 

031400 122713 000177 10$:  CMPB #177, (R3) ‘:1$ IT A RUBOUT 

031404 001003 BNE $ 3 SKIP IF NOT 

031406 104401 001202 4$: TYPE SQUES ZTYPE A °?° 

031412 000763 BR 33 CLEAR THE BUFFER AND LOOP 

031414 111337 031464 3$: MOVB = (R3),,9$ ::ECHO THE CHARACTER 

031420 104401 031464 TYPE ,9 

031404 122723 15 CMPB «#15, (R3)+ :CHECK FOR RETURN 

031430 001356 BNE 2$ SLOOP IF NOT RETURN 

031432 105063 177777 CLRB 3s = 1(R3) iE CLEAR RETURN (THE 15) 

031436 104401 001204 TYPE ,S$LF zTYPE A LINE FEED 

031442 012603 MOV (SP)+,R3 TORE R3 

031444 011646 MOV (SP) ,-(SP) ; ;ADJUST THE STACK AND PUT ADDRESS OF THE 

031446 016666 000004 000002 MOV 4(SP5 ,2(SP) t: FIRST ASCII CHARACTER ON IT 

031454 012766 031466 000004 MOV #STTYIN,4(SP) 

031462 2 RTI RETURN 

1464 000 9$: .BYTE 0 Z3STORAGE FOR ASCII CHAR. TO TYPE 

031465 000 -BYTE 0 RMINAT 

031466 000010 STTYIN: .BLKB 8. : [RESERVE 8 BYTES FOR TTY INPUT 

031476 052536 005015 000 $CNTLU: -ASCIZ /*U/<15><12> CONTROL ‘U" 

031503 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12> SCONTROL ''G' 


031510 005015 at 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
031521 040 047040 053505 SMNEW: .ASCIZ / NEW = 
031526 036440 000040 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Cn me pee ere es renee ag ore greene ay gt wre 

THIS ROUTINE IS USED pe. — , - 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE I 
;*$TY oe HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


tt 

.* MOV NUM, -(SP) NUMBER TO BE TYPED 

.* TYPOS tI CALL FOR TYPEOUT 

33 -BYTE WN 3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* -—BYTE ™ :2M=1 OR A? 

3* , 1=TYPE LEADING ZEROS 

:* + 0=SUPPRESS LEADING ZEROS 


* 

eset eee an rake —_ TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;s$TYPOS OR $TY 

i* MOV NUM, = (SP) ; NUMBER TO BE TYPED 

- TYPON :2CALL FOR TYPEOUT 


i #$1¥POC~--ENTER HERE FOR TYPEOUT OF A 16 GIT NUMBER 
* + 
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.P11—s- 16=NOV-81 17:16 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0087 
* MOV NUM, =(SP) :;NUMBER TO BE TYPED 
ie TYPOC S:CALL FOR TYPEOUT 
031532 017646 000000 STYPOS: MOV a(SP) ,-(SP) ;sPICKUP THE MODE 
031536 116637 000001 031755 MOVB © 1(SP),$OFILL | ;;LOAD ZERO FILL SWITCH 
031544 112637 031757 MOVB  (SP)+,$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
031550 062716 000002 ADD #2, (SP) +: ADJUST RETURN ADDRESS 
031554 000406 BR $TYPON 
031556 112737 000001 031755 $TYPOC: MOVB #1,$0FILL i3$6T THE ZERO FILL SWITCH 
031564 112737 000006 031757 MOVB #6,$OMODE+1 [SET FOP $IX(6) DIGITS 
031572 112737 000005 031754 $TYPON: MOVB #5.$OCNT 33SET THE ITERATION COUNT 
031600 010346 MOV R3,-(SP) +: SAVE R3 
031602 010446 MOV R4.=(SP) TISAVE R4 
031604 010546 MOV R5.=(SP) T:SAVE RS 
031606 113704 031757 MOVB  $OMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
031612 005404 NEG R4 
031614 062704 000006 ADD #6.R4 z:SUBTRACT IT FOR MAX. ALLOWED 
031620 110437 031756 MOVB = R4. SOMODE S:SAVE IT FOR USE 
031624 113704 031755 MOVB  SOFILL,R4 t:GET THE ZERO FILL SWITCH 
31630 016605 000012 MOV 12(SP) .R5 :PICKUP THE INPUT NUMBER 
031634 005003 CLR R3 CLEAR THE OUTPUT WORD 
031636 006105 1$: ROL R5 ; ROTATE MSB INTO ‘'C 
031640 000404 BR 3$ :G0 DO MSB 
031642 006105 2$: ROL RS ::FORM THIS DIGIT 
031644 006105 ROL RS 
1646 006105 ROL 5 
031650 010503 MOV R5,R3 
031652 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
031654 105337 031756 DECB S$OMODE *: TYPE THIS DIGIT? 
031 100016 BPL a3 F NO 
031662 042703 177770 BIC #177770,R3 ':GET RID OF JUNK 
031666 001002 BNE 4$ t:TEST FOR 0 
031670 005704 TST R4 +: SUPPRESS THIS 0? 
031672 001403 BEQ 5$ ::BR IF YES 
031674 005204 4$: INC RS [:DON'T SUPPRESS ANYMORE 0'S 
031676 052703 000060 BIS #°0,R3 T:MAKE THIS DIGIT ASCII 
031702 052703 000040 5$: BIS a RZ + MAKE ASCII IF NOT ALREADY 
031706 110337 031752 MOVB ~=R3. 8S ::SAVE FOR TYPING 
031712 104401 031752 TYPE 3360 TYPE THis DIGIT 
031716 105337 031754 7$: DECB © $OCNT OUNT 
031722 003347 BGT 2$ 3 BR IF MORE TO DO 
031724 002402 BLT 6$ F 
031726 005204 INC RG INSURE LAST DIGIT ISN'T A BLANK 
031730 000744 BR 2$ 3360 DO THE LAST DIGIT 
031732 012605 6$: MOV (SP)+,R5 TIRESTORE R5 
031734 012604 MOV (SP) +-R4 3 3RESTORE R4 
031736 012603 MOV (SP)+.R3 SRESTORE R3 
031740 016666 000002 000004 MOV 2(SP) -4(SP) t:SET THE STACK FOR RETURNING 
031746 012616 MOV (SP) +. (SP) 
031750 000002 RTI RETURN 
031752 000 8$: .BYTE 0 i} STORAGE FOR ASCII DIGIT 
031753 000 ‘BYTE 0 TERMINATOR FOR TYPE ROUTINE 
031754 000 SOCNT: :BYTE 0 i: 0CTAL DIGIT COUNT ER 
031755 000 SOFILL: -BYTE 0 7:ZERO FILL SWITCH 


31756 000000 SOMODE: .WORD 0 > ;NUMBER OF ae TO TYPE 
-SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 
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RDTAB.P11  16-NOV-81 17:16 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0088 
1) 
3} J RRRARAAERAAEEAAAAAAAEAERERAERERAAAAEAARARARAERAEARERERERAAREEEREREEERE 
(1) SSTHIS ROUTINE IS USED TO CHANGE A 16-817 BINARY NUMBER TO A 5-DIGIT 
(1) [*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) ;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) [*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) : #REPLACED WITH SPACES. 
(1) He MOV NUM ,-(SP) ;PUT THE BINARY NUMBER ON THE STACK 
(1) te TYPDS :260 TO THE ROUTINE 
(1) 031760 STYPDS: 
(3) 031760 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 031762 010146 MOV R1,-(SP) :zPUSH R1 ON STACK 
(3) 031764 010246 MOV R2,-(SP) 32PUSH R2 ON STACK 
(3) 031766 010346 MOV R3,-(SP) 327PUSH RS ON STACK 
(3) 031770 010546 MOV R5.-(SP) 3 3PUSH_R5 ON STACK 
(1) 031772 012746 020200 MOV #20200,-(SP) :SET BLANK SWITCH AND SIGN 
(1) 031776 016605 000020 MOV 20(SP) _R5S S2GET THE INPUT NUMBER 
(1) 032002 100004 BPL 1$ ::BR IF INPUT IS POS 
(1) 032006 005405 NEG R5 [:MAKE THE BINARY NUMBER POS. 
(1) 032006 112766 000055 000001 MOVB = # "=, 1 (SP) ::MAKE THE ASCII NUMBER NEG. 
(1) 032014 005000 1$: CLR RO 7:ZERO THE CONSTANTS INDEX 
(1) 032016 012703 032174 MOV #SDBLK,R3 ::SETUP THE OUTPUT POINTER 
(1) 032022 112723 000040 MOVB = #":— , (R$) t:SET THE FIRST CHARACTER TO A BLANK 
(1) 032026 905002 2s: CLR R2 ‘CLEAR THE BCD NUMBER 
(1) 032030 016001 032164 MOV $DTBL(RO),R1 iGET THE CONSTANT 
(1) 032034 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
(1) 032036 002402 BLT 4$ ::BR IF 
(1) 032040 005202 INC R2 SZ INCREASE THE BCD DIGIT BY 1 
(1) 032042 000774 BR 3¢ 
(1) 032044 060105 4$: ADD Ri,RS zz;ADD BACK THE CONSTANT 
(1) 032046 005702 TST R2 iE CHECK IF BCD DIGIT=0 
(1) 032050 001002 BNE 5$ [FALL THROUGH IF 0 
(1) 032052 105716 TSTB (SP) STILL Sone LEADING 0°S? 
(1) 032054 100407 BMI 7$ [:BR IF YES 
(1) 032056 106316 5$: ASLB = (SP) 3 SMSD? 
(1) 032060 103003 BCC 6$ iF 
(1) 032062 116663 000001 177777 MOVB = 1(SP) ,=1(R3) a ee THE SIGN 
(1) 032070 052702 000060 6S: BIS #'0,R2 T:MAKE THE BCD DIGIT ASCII 
(1) 032074 052702 000040 7$: BIS , "Ro [MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 032100 110223 MOVB = R2,, (R3)+ ::PUT THIS CTER IN THE OUTPUT BUFFER 
(1) 032102 005720 TST 6)+ ::JUST INCREMENT ING 
(1) 032104 020027 000010 CMP RO,#10 [:CHECK THE TABLE INDEX 
(1) 032110 002746 BLT 2$ ::G0 DO THE NEXT DIGIT 
(1) 032112 003002 BGT 8S 7:60 TO EXIT 
(1) 032114 010502 MOV R5,R2 33GET THE LSD 
(1) 032116 000764 BR 6% 60 CHANGE TO ASCII 
(1) 032120 105726 8$: TSTB = (SP) + 3; WAS THE LSD THE FIRST NON-ZERO? 
(1) 032122 100003 BPL [BR IF NO 
(1) 032124 116663 177777 177776 MOVB =1(SP),-2(R3) ::YES=-SET THE SIGN FOR TYPING 
(1) 032132 105013 9$: CLRB = (R3) ::SET THE TERMINATOR 
(3) 032134 012605 MOV (SP)+,R5 72zPOP STACK INTO RS 
(3) 032136 012603 MOV (SP)+-R3 t:POP STACK INTO R3 
(3) 032140 012602 MOV (SP)+°R2 +:POP STACK INTO R2 
(3) 032142 012601 MOV (SP)+.R1 ::POP STACK INTO R1 





re 


L 7? 
.MAIN. MACY11 301052), 7 l$-Nov-81 17: 26 PAGE 13-24 
CRDTAB.P11  16=NOV=81 17:16 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0089 

(3) 032144 012600 MOV (SP)+,RO ; sPOP STACK INTO RO 
(1) 032146 104401 032174 TYPE SDBLK [NOW TYPE THE NUMBER 
(1) 032152 016666 000002 000004 MOV e(SP), 4(SP) <TADJUST THE STACK 
(1) 032160 012616 MOV (SP)+, (SP) 
(1) 032162 000002 RTI z:RETURN TO USER 
(1) 032164 023420 $DTBL: 10000. 
(1) 032166 001750 1000. 
(1) 032170 000144 100. 
(1) 032172 000012 10. 
(1) 032174 000004 SDBLK: .BLKW 4 

2567 .SBTTL ERROR HANDLER ROUTINE 
(2) FARRAR AEAAERERARAERARRERAEERERERERERERRERRRARERAEEREREREREEREEREEREEE 
(1) :STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) [*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) [*AND GO TO SERRTYP ON ERROR 
(1) [*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) t*SW15=1 HALT ON 
(1) *SW13=1 INHIBIT ERROR TYPEOUTS 
(1) ;*SW10=1 BELL ON ERROR 
(1) *SW09=1 LOOP ON ERROR 
(1) t*CALL 
(1 7* ERROR N :;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 032204 SERROR: 
(1) 032206 104407 CKSWR rTEST FOR CHANGE IN SOFT=SWR 
(2) 032206 113737 001102 001632 MOVB  $TSTNM,TSTNUM :SET UP TEST # ON ERROR 
(1) 032214 105237 001103 7$: INCB —- SERFLG 33 SET THE ERROR FLAG 
(1) 032220 001775 BEO 7$ :DON'T LET THE FLAG GO TO ZERO 
(1) 032222 013777 001102 146712 MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 032230 032777 002000 146702 BIT #B1T10.aSWR [:BELL ON ERROR? 
(1) 032236 001402 BEQ 1$ ::NO = SKIP 
(1) 032240 104401 001176 TYPE + RING . 
(1) 032244 005237 001112 1$: INC $ERT [COUNT THE NUMBER OF ERRORS 
(1) 032250 011637 001116 MOV (3), Tee aRPC T:GET ADDRESS OF ERROR INSTRUCTION 
(1) 032254 162737 000002 001116 SUB PC 
(1) 032262 117737 146630 001114 MOVB SStRREC, SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 032270 032777 020000 146642 B: #B81T13,aSWR [SKIP TYPEOUT IF SET 
(1) 032276 001055 BNE 23SKIP TYPEOUTS 
(1) 032300 021627 001002 CMP (SP) #1002 TIF RETURN PC LESS THAN 1002 
(1) 032304 101046 BHI 12$ ERROR IS ILLEGAL TRAP 
(1) 72PROCESS UNEXPECTED TRAP OR inrébue 
(1) 032306 016637 000004 001116 MOV SP),SERRPC  ;;GET Toe AT TIME OF FALSE TRAP 
(1) 032314 162737 000002 001116 SUB te, SERRPC S:ADJUST PC 
(1) 032322 104401 032366 TYPE $ TYPE HEADER 
(2) 052526 013746 001116 MOV SERRPC.-(SP) [SAVE SERRPC FOR TYPEOUT 
(2) 032332 104402 TYPOC ':G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 032334 104401 032374 TYPE ,11$ 
(1) 032340 162716 000004 SUB #4, (SP) i:GET FALSE TRAP VECTOR ADDR 
(1) 032344 011637 001116 MOV (SP) ; SERRPC 
(2) 032350 013746 001116 MOV SERRPC,-(SP) _;:SAVE SERRPC FOR TYPEOU 
(2) 032354 104402 TYPOC 7:60 TYPE=-OCTAL ASCII GALL DIGITS) 
(1) 032356 104401 001203 TYPE ,$CRLF 
(1) 032362 022626 CMP (SP)+, (SP)+ 7:POP FALSE TRAP VECTOR PC&ADDR 
(1) 032364 000422 BR 
(1) 032366 050200 036503 000040 10$: .ASCIZ <200>'PC= ° 
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| (1) 032374 020040 047125 054105 11%:  .ASCIZ ° UNEXPECTED TRAP TO ° 
(1) 032402 042520 052103 042105 
(1) 032410 052040 040522 020120 
(1) 032416 047524 000040 
(1) EVEN 
(1) 032422 12$ 
(1) 032422 004737 032534 JSR PC, SERRTYP ::G0 TO USER ERROR ROUTINE 
(1) 032626 104401 001203 TYPE  ,$CRLF 
(1) 032632 208: 
(1) 032432 122737 000001 001226 CMPB  #APTENV,SENV _—s; ;RUNNING IN APT 
(1) 032440 001007 BNE $ ::NO,SKIP APT ERROR REPORT 
(1) 032442 113737 001114 032454 MOVE  $ITEMB,21$ ':SET ITEM NUMBER AS ERROR NUMBER 
(1) 032450 004737 030424 JSR PC, SATY4 t:REPORT FATAL ERROR TO APT 
(1) 032654 000 21$: BYTE 0 
(1) 032655 000 BYTE 0 
(1) 032456 000777 22$: BR 22$ ; APT ERROR LOOP 
(1) 032460 005777 146454 2$: TST aSWR T ON ERROR 
(1) 032464 100002 BPL 3$ ::SKIP IF CONT INUE 
(1) 032466 000000 HALT :SHALT ON ERROR! 
(1) 032470 104407 CKSWR :TEST FOR CHANGE IN SOFT=SWR 
(1) 032472 032777 001000 146440 38: BIT #B81T09,aSwR LOOP ON ERROR SWITCH SET? 
(1) 032500 001402 BEQ 4$ F NO 
(1) 032502 013716 001110 MOV SLPERR, (SP) :TFUDGE RETURN FOR LOOPING 
(1) 032506 005737 001174 4$: TST SESCAPE 23 CHECK FOR AN ESCAPE ADDRESS 
(1) 032512 001402 BEQ 5 ::BR IF NONE 
(1) 032514 013716 001174 ie MOV SESCAPE,(SP) = : FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 032520 022737 021640 000042 CMP MSENDAD,@#42 =: :ACT-11 AUTO-ACCEPT? 
(1) 032526 001001 BNE 6$ ;7BRANCH IF NO 
(1) 032530 000000 HALT 3: 
(1) 032532 6S: 
(1) 032532 000002 RTI ::RETUR 
2568 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) FARRAR AAEAAEARERAREAEERAREARAERAERAEEEEERERERERAERAAERERREREE 
(1) <STHIS ROUTINE USES THE “ITEM CONTROL BYTE" ($1TEMB) TO DETERMINE WHICH 
(1) **ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE" ( (SERRTB) . 
(1) '*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 032534 SERRTYP: 
(1) 032534 104401 001203 TYPE  ,$CRLF rz"CARRIAGE RETURN’ & “LINE FEED"’ 
(1) 032540 010046 MOV RO, -(SP) T:SAVE R 
(1) 032542 005000 CLR RO ::PICKUP THE ITEM INDEX 
(1) 032544 153700 001114 BISB aA#SITEMB,RO 
(1) 032550 001004 BNE 1$ :1F ITEM NUMBER IS ZERO, JUST 
(1) TYPE THE PC OF THE ERROR 
(2) 032552 013746 001116 MOV SERRPC,-(SP) +o SAVE SERRPC FOR TYPEOUT 
(2) TERROR ALDRESS 
(2) 032556 104402 TYPOC 33GO_ TYPE=-OCTAL ASCIICALL DIGITS) 
(1) 032560 000426 BR 6$ ouT 
(1) 032562 005300 1$: DEC RO 3 ADJUST THE INDEX SO THAT IT WILL 
(1) 032564 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
(1) 032566 006300 ASL RO 
(1) 032570 006300 ASL RO 
(1) 032572 062700 001332 ADD #SERRTB,RO FORM TABLE POINTER 
(1) 032576 012037 032606 MOV (RO) +, 2$ PICKUP "ERROR MESSAGE’ POINTER 
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2602 001404 BEQ 38 :SKIP TYPEQUT IF NO POINTER 
2604 104401 TYPE iTYPE THE "ERROR ME 
2606 000000 2$: WORD i$ ERROR MESSAGE” POINTER GOES HERE 
2610 104401 001203 TYPE =, SCRLF i:''CARRIAGE RETURN’ & "LINE FEED’ 
2614 012037 032624 38: MOV RO)+,48 ‘PICKUP “DATA HEADER" POINTER 

4 $ :ISKIP TYPEQUT IF 0 
TYPE THE "DATA HEADER 
ey TA HEADER’ POINTER GOES HERE 
032626 104401 001203 TYPE =, SCRLF ZI'CARRIAGE RETURN’ & ‘LINE FEED’ 
032632 011000 5$: MOV (RO) ,RO PICKUP "DATA TABLE" POINTER 
032634 001004 BNE 7$ 3360 TYPE THE DATA 
032636 012600 6$: MOV  (SP)+,R0 7 RESTORE RO fangs : 
032640 104401 001203 TYPE —_, SCRLF ZI'CARRIAGE RETURN’ & “LINE FEED 
032644 000207 RTs. PC ; ;RETURN 
032646 7$: 
032646 013046 MOV  @(RO)+,=(SP) —; ;SAVE_@(RO)+ FOR TYPEOUT 
032650 104402 TYPOC 3:60 TYPE--OCTAL ASCII(ALL DIGITS) 
032652 005710 Ist RO) ii1$ THERE ANOTHER NUMBER? 


E 6 7BR_IF_NO 
032656 104401 032664 hg yg z:TYPE TWO(2) SPACES 
032664 020040 000 8$: ASCIZ / / 3: TWO(2) SPACES 
032670 -EVEN 
-SBTTL SCOPE HANDLER ROUTINE 
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032624 000000 4$: . WORD 
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) RARER AREER RARE RARE TE AARERAAAAAAARER ARERR TERRA REET e eee 
) : THIS erg nes THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
) AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:9>) 
) ¢ SAND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15:08> 
) [*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
) 7*SW14=1 LOOP ON TEST 

) 3*SW11=1 ray ITERATIONS 

) 3*SWO9=1 LOOP ON ERROR 

: 3*SwO08=1 LOOP ON TEST IN SWR<7:0> 
) 

) 

) 

) 

) 

) 

) 

) 

) 
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) 

) 
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°* 
3* SCOPE 3: SCOPE=I0T 


032670 SSCOPE: 
032670 104407 CKSWR sTEST FOR cHange IN SOF T=SWR 
:GO TO ERROR ROUTINE IF RETURN be LESS THAN 1002 
STOTHERWISE CONT INU 
032672 021627 001002 CMP SP) #1002 ;;UNEXPECTED TRAP OR INTERRRUPT 
1 02 BHI i3 SZARE TRAPPED HERE VIA IOT 
37 032204 JMP SERROR 33GO PROCESS UNEXPECTED TRAP 
77 040000 146226 1$: BIT #B1T14,aSuR *:LOOP ON PRESENT TEST? 
SSF: 001114 BNE 0 “YES IF suld= 1 
-W#HHMASTART OF CODE FOR THE XOR ies RAAAEE 
032714 000416 $xTSTR: BR 63 IF SEeLING ON T THE “XOR\* TESTER CHANGE 
‘THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
032716 013746 000004 MOV AWERRVEC,-(SP) 22SAVE THE CONTENTS OF THE ERROR VECTOR 
032722 012737 032742 000004 MOV #5$ QrERAVEC t:SET FOR TIMEOUT 
032730 005737 177060 TST a4#1?7060 ‘TIME OUT ON XOR? 
12637 000004 MOV (SP)+, a#ERRVEC ;;RESTOR 
000463 SSVLAD T 


BR e. 
5$: CMP (SP)+, (SP)+ i: CLEAR 
MOV (SP)+,@MERRVEC ;;RESTOR 


a VECTOR 


E 

x 

TACK AFTER A TIME OUT 
E VECTOR 
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(1) 000423 BR 7$ ON THE PRESENT TEST 

(1) 7 6$:; #AAMAEND OF CODE FOR THE XOR™ HOO oeene 

(1) 0 32777 000600 146160 iT 1T08,aSwR a ate ON SPEC. TEST? 

(1) 762 127737 146152 001102 CMPB ss @SWR, STSTNM on THER RIGHT TEST? SWR<7:0> 

(1) 7 1465 BEQ SOVER i8R IF 

(1) 772 105737 001103 2s: TSTB $ERFLG t:HAS AN ERROR OCCURRED? 

(1) 77 1421 BEO 7:BR IF NO 

(1) 123737 001115 001103 c RMAX, SERFLG MAX. ERRORS FOR THIS TEST OCCURRED? 

(1) Bsenc8 1 1913 GHI 338R IF 

(1) 033010 032777 001000 146122 BIT #B81T09,aSwR 7:LOOP ON ERROR? 

(1) 03301 901404 BEQ 4$ ':BR IF NO 

(1) 0 13737 001110 001106 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 

(1) 033026 000446 BR SOVER 

(1) 03 105037 001163 4$: CLRB = SERFLG z3ZERO THE ERROR FLAG 

(1) 03 005037 001172 CLR STIMES Z:CLEAR THE NUMBER OF ITERATIONS TO MAKE 

(1) 033040 000415 BR 1 S:ESCAPE TO THE NEXT TEST 

(1) 033042 032777 004000 146070 3: BIT #B81T11,aSWR ;EINMIBIT ITERATIONS? 

(1) 03305 001011 BNE IF 

(1) 033052 005737 001214 TST SPASS i1F FIRST PASS OF PROGRAM 

(1) 033056 001406 BEQ 1$ INHIBIT ITERATIONS 

(1) 033060 003237 001104 INC SICNT *TINCREMENT ITERATION COUNT 

(1) 033064 023737 001172 001104 CMP STIMES,SICNT  3:CHECK THE NUMBER OF ITERATIONS MADE 

(1) 033072 902024 BGE SOVER 7BR IF MORE ITERATION REQUIRED 

(1) 033074 012737 000001 001104 1S: MOV #1,$ICNT {ZREINITIALIZE THE ITERATION COUNTER 

(1) 033102 013737 033160 001172 MOV SAXCNT STIMES ::SET NUMBER OF ITERATIONS TO DO 

(1) 033110 105237 001102 SSVLAD: INCB  $TSTNM 23 COUNT TEST NUMBERS 

(1) 033114 113737 001102 001212 MOVB = STSTNM, STESTN SET TEST NUMBER IN APT MAILBOX 

(1) 033122 011637 001106 MOV (SP) ,SLPADR T:SAVE SCOPE LOOP ADDRESS 

(1) 033126 011637 001110 MOV (SP); $LPERR TZ:SAVE ERROR LOOP ADDRESS 

(1) 033132 005037 001174 CLR SESCAPE Z3CLEAR THE ESCAPE FROM ERROR ADDRESS 

(1) 033136 112737 000001 001115 MOVE «#1, SERMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 

(1) 033144 013777 001102 145770 S$OVER: MOV STSTNM.@DISPLAY i DISPLAY TEST NUMBER 

(1) 033152 013716 001106 MOV SLPADR. (SP) ::FUDGE RETURN ADDRESS 

(1) 033156 000002 RTI 33FIXES PS 

(1) 033160 003720 SMXCNT: 2000. ‘MAX. NUMBER OF ITERATIONS 

2570 "SBTTL POWER DOWN AND UP ROUTINES 

(2) REAAAAAAAEAAEAAEEAARARAEAERERAAARAEAAAAERAAARARAERARAARARARAEREEARAEEEE 

(1) “POWER DOWN ROUTINE 

(1) 033162 012737 033326 000024 $PWRDN: MOV WSILLUP,@#PWRVEC ;;SET FOR FAST UP 

(1) 033170 012737 000340 000026 MOV #340, Q#PWRVEC+2 ::PRIO:7 

(3) 033176 010046 MOV RO,-(SP) 33PUSH RO ON STACK 

(3) 0332 010146 MOV R1,-(SP) PUSH Ri ON STACK 

(3) 033202 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 

(3) 033204 010346 MOV R3,-(SP) 3: PUS ON STACK 

(3) 033206 010446 MOV R4.-(SP) *:PUSH R4 ON STACK 

(3) 033210 010546 MOV R5,-(SP) +:PUSH R5 ON STACK 

(3) 033212 017746 145722 MOV @SWR,-(SP) 33PUSH @SWR ON STACK 

(1) 033216 010637 033332 MOV SP, SSAVR6 sSAVE SP 

(1) 0332 12737 033234 000024 MOV #SPWRUP,, a#PWRVEC SET UP VECTOR 

+1} 033232 000776 BR 72 7 HANG UP 

(2) SRERAAAAARERARARAEARAEEREEAEARAAAEAARARAARARARARAERAAEERAERAEEAREAEE 

(1) “POWER UP ROUTINE 
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MACY TT 30A(1052)_ 7ig_Nov-81 17: 26 PAGE 13-28 
11. 16=NOV=81 DOWN AND UP ROUTINES SEQ 0093 
34 12737 000024 S$PWRUP: MOV ASILLUP,a#PWRVEC ::SET FOR FAST DOWN 
4 1% MOV SSAVR6, SP siBET SP 
0 CLR SSAVR6 t:WAIT LOOP FOR THE TTY 
5 3¢ 7 1$: INC SSAVR6 ‘:WAIT FOR THE INC 
1375 BNE 1$ 7:0F WORD 
332 12677 145654 MOV (SP)+,aSWR 7:POP STACK INTO aSwR 
3 64 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
3 12604 MOV (SP)+-R4 ::POP STACK INTO R4 
033 12603 MOV (SP)+.R ::POP STACK INTO R3 
033 72 012602 MOV (SP)+-R ::POP STACK INTO R2 
033276 012601 MOV (SP) +81 ::POP STACK INTO R1 
0 3 76 oi 600 MOV (Sp), RO 33POP STACK I 
0 12737 033162 000024 MOV VEC 32S gSeT rp THe NPOWER DOWN VECTOR 
033 012737 000340 000026 MOV #340, srunin,oaruny ziPR 
033314 104401 TYPE {REPORT THE POWER FAILURE 
033316 033334 SPWRMG: .WORD PWRMSG ZPOWER FAIL MESSAGE POINTER 
033320 012716 MOV (PC)+, (SP) S:RESTART AT RESTART 
033322 002526 SPWRAD: .WORD RESTRT s RESTART ADDRESS 
033324 000002 RTI 
033326 000000 SILLUP: HALT zi THE POWER UP SEQUENCE WAS STARTED 
033330 000776 BR 72 33 BEFORE THE POWER DOWN WAS COMPLETE 
033332 000000 SSAVR6: 0 PUT THE SP HERE 
033334 005015 042522 052123 PWRMSG: .ASCIZ <15><12>/RESTARTED + FROM POWER FAIL/ 
033342 051101 042524 020104 
033350 01106 046517 050040 
033356 053517 051105 043040 
044501 000114 
EVEN 
“SBTTL TRAP DECODER 
FRARRARERAARERRERERAAREEEREEREERERERAERERRRERERREREREEEEEERREEERE 
:3THIS ROUTINE WILL pI CKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
+ OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 
033370 010046 STRAP: MOV RO,-(SP) ZSAVE RO 
033372 016600 000002 MOV (SP), RO SIGE TRAP ADDRESS 
033376 005740 TST (RO) UP BY 2 
033400 111000 MOVB (RO) .RO 33GET RIGHT BYTE OF TRAP 
033402 006300 ASL RO ‘POSITION FOR INDEXING 
033404 016000 033424 MOV STRPAD(RO).RO :: INDEX TO TABLE 
033410 000200 RTS RO +:G0 TO ROUTINE 
z:THIS IS USE TO HANDLE THE 'GETPRI'* MACRO 
033412 011646 STRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
033414 016666 000004 000002 MOV 4(SPS ,2(SP) ::MOVE THE PSW DOWN 
033422 000002 RTI S:RESTORE THE PSW 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE vane ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “‘TRAP’’ INSTRUCTION 


eee eee Oe te ee + ee ee + 
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SS 


SEQ 0094 



















(3) : 

< ) . a ee me ee 

(3) 033424 033412 $TRPAD: .WORD RAP2 

(3) 9 126 $TYPE ;;CALL=TY TRAP+1(104601) TTY TYPEOUT ROUTINE 

(3) 0315 $TYPOC ;;CALL=TYPOC TRAB+@(1 402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 033432 03153 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 03 157 STYPON ::CALL=TY TRAP +& (106604) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 0 031760 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
(3) 033440 031026 SGTSWR ;:CALL=GTSWR  TRAP+6(104406) GET SOFT-SWR SETTING 

(3) 033442 030756 SCKSWR ::CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
(3) 033444 031240 SRDCHR :;:CALL=RDCHR TRAB+10¢ 104410) Ty TYPEIN CHARACTER ROUTINE 
(3) 033446 031360 SRDLIN ::CALL=RDLIN TRAPS 1 (104411) TTY TYPEIN STRING ROUTINE 

(3) 033450 030654 SRDOCT ;:CALL=RDOCT +12(104412) READ AN OCTAL NUMBER FROM TTY 
2574 .SBTTL RANDOM NUMBER GENERATOR ROUTINE 

(2) g2 RAEAAAEAAAAEAAAAAAAAEAEAAAEAAAAAARAAAAAEARARAAARARAAAARRAAARAEARAEEREEE 

(1) Z*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 

(1) :*WITH A RANGE OF 0 TO 2(+33)-1, 

(1) '*CALL: 

(1) ; JSR PC, $RAND z:CALL THE ROUTINE 

(1) te RETURN ZZRETURN HERE THE RANDOM 

(1) te [NUMBER WILL BE IN 

$1 3* 33$H ~SLONUM 

(1) 033452 SRAND: 

(3) 033452 010046 MOV RO,-(SP) :zPUSH RO ON STACK 

(3) 033454 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 

(3) 033456 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 

(1) 033460 013700 033552 MOV LONUM,RO t:SET RO WITH LOW 

(1) 033464 013701 033550 MOV SHINUM,R1 +:SET R1 WITH HIGH 

(1) 033470 012702 177771 MOV 4-7, <:SET SHIFT COUN 

(1) 033474 006300 1$: ASL RO S:SHIFT RO LEFT 

(1) 033476 006101 ROL R1 *:ROTATE CARRY INTO R1 

(1) 033500 005202 INC R2 23 CHECK FOR 

(1) 033502 001374 BNE 1$ :CONTINUE SHIFT LOOP 

(1) 033504 063700 033552 ADD $LONUM, RO + ADD NUMBER TO MAKE X 129 

(1) 033510 005501 ADC R1 3 3PROPOGATE CARRY 

(1) 033512 063701 033550 ADD SHINUM,R1 [ADD NUMBER TO MAKE x 129 

(1) 033516 062700 001057 ADD #1057,R0 3 SADD LOW CONSTAN 

(1) 033522 005501 ADC R1 OPOGATE CARRY 

(1) 033524 062701 047401 ADD #47601,R1 ::ADD HIGH CONSTANT 

(1) 033530 010037 033552 MOV RO, $LONUM +: SAVE RO 

(1) 033554 010137 033550 MOV SHINUM Z:SAVE R1 

(3) 033540 012602 MOV asbye- R2 3POP STACK INTO R2 

(3) 033542 012601 MOV (SP)+.R1 POP STACK INTO R1 

(3) 033544 012600 MOV (Sp), *RO +:POP STACK INTO RO 

(1) 033546 000207 RTS +: RETURN 

(1) 033550 176543 SHINUM: .WORD 1564543 

(1) 033552 123456 SLONUM: .WORD 123456 


SEQ 0095 | 


eASCIZ /POST-RESET CONDITIONS NOT MET IN CSR./ 


eASCIZ %READ/WRITE BIT FAILURE IN CSR.% 
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eASCIZ /ERROR IN CONNECT PROCESS./ 
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eASCIZ /INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED./ 


eASCIZ /ERROR IN RELEASE PROCESS./ 


eASCIZ /COULD NOT CONNECT./ 


eASCIZ /INTERUPT AT WRONG PRIORITY./ 
eASCIZ /CONNECT CONDITION FAILURE./ 
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CROSS REFERENCE TABLE -= USER SYMBOLS 


SEQ 0099 | 


697* 698 704* 705 719% 
767 781* 782 797% 798 
847 855 856 864* 879 
938 941% 944 961* 962 


; 
' 


4 A no ee 
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CRDTAB.P11 16=NOV-81 17:16 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0100 
973* 974 984s 990* 991 1011* 1916 1038* 1039 1049* 1055 1092* 1105* 
1107* 1109 1120 11g) ieee 1143* = =81150* 1151 1168* 1176* 1177 \e0ee 1215* 
1217* 1219 1232* 12357* 1238 1359* 1360 1764" 1365 1368 1371 1374 1403* 
1404 130es 1409 1412 1415 1418 1436" 1433 1455* 1457 1466* 1468 1486* 
1488 1503* 1505 ss 1sse* 1869 187, 1879* 1880* 1882 1885 1904* 1905* 
1908 1911 1920* 1921* 192 2119* = =2421 2144* §=2145 2147 2152 2166 2174 
2414* 2615 2616 2617 
BADA = 001122 3934 (671* 2615 
BEBA 027416 2429% 2441% 24864  2530* 
BEBD 027412 2428* 24848  2532* 
BECC 027414 24350" 2442% 24854 25318 
BECRI 027420 2431 82444 = 2458% = =—2487H = 2529 = 2550 
BECR2 027422 24884 2528% 
BERE 027424 2489H 2527* 
BITO = 000001 3874 392 
BITOO = 000001 3874 
BITO1 = 000002 3874 
BITO2 = 000004 3874 
B1T05 = 000010 3874 
BITO4 = 000020 3874 
BITOS = 000040 3874 
BIT06 = 000100 3874 
BITO7 = 000200 3874 
BIT08 = 000400 3874 2569 
B1ITO9 = 001000 3874 2567 2569 
BIT! = 000002 3874 
BIT10 = 002000 3874 2567 
BIT11 = 004000 3874 2569 
BIT12 = 010000 3874 
BIT13 = 020000 3874 2567 
BIT14 = 040000 3874 2569 
BIT15 = 100000 3874 
BIT2 = 000004 3874 
BITS = 000010 3874 
BIT4 = 000020 3874 
BITS = 000040 3874 
BIT6 = 000100 3874 
BIT? = 000200 3874 
BIT8 = 000400 3874 
IT9_ = 001000 3874 
TVEC= 000014 3874 
BRCNT 027406 2405* 2443 24824 2619 
BREND 027470 2422 = 25014 
BRLV 027460 se3e 24978 
BUFF1 027434 2427* 2429 2436 2438* 2439% 2441 2452 24944 
CKADR 026562 1098 1194 $2560 
SWR = 104407 2567 2569 5734 
CLRREG 030020 2426 = 2526 # 
CNTLC 026620 639 663 678 ar 734 774 820 872 919 954 999 1031 1076 
We i Ge Be GR OW OO ORS 
CONID Oot 1352 1388 1521 19544 
CONNEC 021674 1304 1351 1387 1791 1849 19454 
COVID 001730 5654 1371 1415 1524 1533 1954* 1958 
CR = 00001 3874 2561 
CRDY 030074 2433 2448 2460 25478 
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832* 83 
926* 927 
1001*  1010* 
1116 ie" 
1173* 1176 
1255* 1354* 
1455 1461 
1533 1556 
1625 1628 
1695 1698 
1772 1775 
1832 1838 
1926 1946 
2186* 2187 
1312 1326* 
1329* 1955 
1557* 1705* 
1120 1190 
2296* 2373 

1276 

1199 1238 
1108* 1109 
423 428 
26104 

829 840 
2304 2334 
4c 429 


26184 
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CRDTAB.P11 16-NOV-81 17:16 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0102 

—EM13 «034221 65 5884 

EM14 036263 45 5894 

EM15 =—s-_—« 034342 46 5904 

EM 034376 46 32914 

EM 034417 472 5924 

EM2 033622 407 25798 

EM20 3-0 34464 477 = 25934 

EM21 034533 482 25944 

EM22 «(034564 48 25954 

EM23 3=—-: 027474 492 32064 

EM24 027524 497 5054 

EM25 =s-_—« 027556 502 = 25064 

EM26 =—s_s« 0276.34 507 «25078 

EM27 =: 027726 513. 25084 

EM3 033661 412 25804 

EMG 033715 417 25814 

EMS 033747 422 25824 . 

EM6 034027 427 25834 

EM7 034052 432 25844 

E 030002 24668 251% 

ERREN = 017732 18444 1878 1917 

ERROUT 026532 23634 2375 

ERRVEC= 000004 3874 86.579 580* 2364* 2374 2375* 2569 

EXPEND 001654 5514 

EXPRT1 001646 5484 2310 

EXPRT2 001650 5494 

EXPRT3 001652 5504 

EXPTCT 001656 5524 «62017 «= 2019)» 2036 «= 2308* = 2311 2332 

FLAG 026560 1099 1195 2365* 23704  2376% 

FLUSHM 023124 2044 2061 21254 

FLUSHP 023146 21314 2235 

FUNCT1 010206 13494 1538 

FUNCT2 010636 13854 1539 

FUNCT3 011644 14454 1540 

FUNCTS4 012152 14764 1494 1541 

FUNCTS 012616 15198 1342 

GETADR 024232 642 = 223 2281 

GNS = t#eeee UY 395 602 651 653 1118 1247 1249 1358 1367 1373 1395 1402 1411 
1417 1424 1431 1456 1467 1487 1504 1512 1530 1565 1587 =. 1593 160¢ 
1620 1627 1641 1648 1663 1672 1683 1688 1697 1735 1740 1748 175 
1758 1765 1769 1774 1781 1786 1792 1797 1804 1808 1819 1824 1831 
1835 1840 1851 1854 1871 1873 1884 1886 1892 1897 = 1910 1912 1925 
1927 1931 1934 1993 3003 2120 = 2165 2173S 2191 2204 3213 3e28 2236 
3043 2244 2251 3263 290 2292 3294 2298 =s._- 2301 5806 2312 «= 2317s 2328 
2336 = 23400 2344 2358 =—§ 2400 23S 2401 2573 

GOOD = 001124 3904 666% 672 682 683* 685 689 692 693s 95 698 701* 703 
705 717* 718% 720 724% 727 7418 742 45« 49 7558 756% 759 
778+ 779 782 7928 793s 796 798 804* 807 827 828+ 831* 835 
842 843 847 8528 853* 856 876* 877* 880 90 891 8942 896 
901* 902 905 923« 938 9428 943« 944 958+ 959 962 972" 974 
982« 983 988 989* 991 1005*  1006* 1009 1012 1035" 1036* 103 1050* 
1051* 1054 1055 1061* 1062 1093s 1094" 1125* 1126* 1127 1144* 1145" 1169 
1170" 1174 1177 1209 12108 123 * 12342 1598 1599 1600 1668* 16692 1670 
1693* 1694 1695 1867* 1868" 1869 1874 1881* 1882 1887 1906* 1907¢ 1908 
1913 19 ¢. 1923 1928 2415* 2416 2615 

GTSWR = 104406 602 25 | 


pila ee ai a Lanes Se 


MAIN. MACY11 30A(1052) _16-NOV-81 17:26 PAGE 14-4 
CRDTAB.P11 —- 16-NOV-81 17:16 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0103 
HT __ = 000011 387" ©2561 
INTVEC 027426 2440" 24908 2538 2540 
IOTVEC= 000020 3878 «579s 
KIPARGS 172340 3948 
KIPARI= 172342 3948 
KIPAR= 172344 3948 
KIPAR3= 172346 3948 
KIPAR4= 172350 3948 
KIPARS= 172352 3948 
KIPAR6= 172354 3948 
KIPAR7= 172356 3944 
KIPDRO= 172300 3948 
KIPDR1= 172302 3948 
KIPDR2= 172304 3948 
KIPDR3= 172306 3948 
KIPDR4= 172310 3948 
KIPDR5= 172312 3948 
KIPDR6= 172314 3944 
KIPDR7= 172316 3948 
KONST 001752 570# 612" «= 613* = 614" 666——siB2—(itiD——s«s701 717 724s 755 «778 
792 «80 827 = 842—(isiéS?iCiBHC«iSC“‘«i‘«é‘_ 942 958 972 982 988 
1005 1035 1050 1061 1093 1144 1169 1176 1209 1233 1598 1668 1693 
1867 1906-2415 
LF = 000012 387" ©2561 
MANEND 021500 1902-1934 
MANIN 015300 631 17278 
15316 1730 17324 =—-1744 
MASMEN 022430 1301 20434 
MASTER 007740 1294 1296 12998 
001676 560# 2045 2053 2062 2076 2085 2125 
MMVEC = 000250 3948 
ND 00754 12614 
MONPRT 002676 621 635 6384 
MULDT3 012762 1284 1553 1716 1721 
MULEND 015236 1656 «1710 ~=—s«1714M , 
NEXENT 901674 Soo doce 2085 «208 «2065 ~«=«2070+«=«2078~—«2080~=—«2087 2095 2102" 2103* 2104 
® ® * 
2107* 2109" 2110 2112" 23113 
NPR 026766 2402H 2474 
NULL 027777 2471 25108 
027410 2399* 2404" 2465 24728 26834 
ONOFF 001744 S67# 61576* 1578* 1708 1714 2043" 2060s 
ooPS 023022 1993 496318, 867914949995 102610701285 1378143861472 
PARFLG 026426 627* 6460 1271 2233" 23488 
PARIN 024756 626 12746 22804 
PASS 027404 2398* 2467" 2469 24814 
PFVSEV 020170 1846 1859" 
PIRQ = 177772 3874 
PORTNO 007644 Beye 854 ~—«1290«1295-~=«2014~=«2063~S—«2078 2169* 2293 
* 
POSTSV= 021006 18984 1932 
PRI 001630 5344 © 585" = 923 
PRO = 000000 3874 
PR1 = 000040 3874 
PR2 = 000100 3874 
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CRDTAB.P11 16-NOV-81 17:16 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0104 
PR3 = 000140 3874 
PR4 = 00020 3874 
PRS = 000240 3874 
PR6 = 000300 3874 
PR7 = 000340 3874 
PS = 177776 3874 
PSW = 177776 3874 664* 680* 737* 740* 754% 780* 789* 803* 823* 826* 878 88 
922s 929% 948« 960* 1002* 1019% 1037 1046 1064* 1086 1137* ##%+%1162* 1202* 
1226* 1289% 13798 1422% 1438 1473 1516% 1555* 1570% 1610* 1618* 1632*  16535* 
1686* 1703* 1790* 1818*  1848% 2142 2181% 2193 2198% 2408* 2425 2447 2459% 
PWFSER 021024 1847 19044 
PWRMSG 033334 2570 25714 
PWROK 016376 1731 1773 17784 1789 180 
PWRVEC= 000024 3874 579* 1815 1816* 1830* 1846* 1864* 1901* 2570* 
RCATCH 030052 2473 2476 25374 
DCHR = 104410 1736 1754 1770 1782 1793 1809 1820 1836 2237 2345 2564 25734 
RDLIN = 104411 2563 25734 
RDOCT = 104412 2247 2256 2269 2295 2299 2302 2307 2313 2318 25734 
REPAR = 024774 2282 22854 
—€Q = 000001 3924 746 791 832 889 971 1087 1138 1163 1203 1227 2409 
RESTRT 002526 604 6154 1261 1940 2570 
RESVEC= 000010 3874 
ROUTE 00267 0 621* 623* 626* 629* 631* 6354 2282s 
ROUT? 002566 6214 2352 
ROUT2 002600 6234 2353 
ROUT3 002612 395 6254 2390 2419 
ROUT4 002636 6294 2354 
SALMEN 022516 1324 20604 
SECT2 013212 15824 1707 1712 
SECT2A 013612 1601 16064 1608* 1616* 
SECT 013656 1607 16164 
SECT2C 014106 1615 16314 
SECT2D 013624 16094 1626 
ECTS 014116 16364 
SECTS 014372 1577 1655 16604 
SECTS 014616 1671 16794 
SELMS 034651 2321 25974 
EQ 001660 5534 558 559 2016 2094 2095 2107 2112 
SEQINT 022666 1288 20944 2100 
QMAK 022320 1287 20144 
SEQPTR 001672 5584 2094* 2096 2098* 2099 2101 2102 
SEQSTP 022710 1218 1339 20984 
SETUP1 002232 5804 
SETUP2 002260 5838 
3 002302 5964 So9 
SLAVE 9100/¢ 1291 1298 13244 
SPACE 03464 2246 2255 25964 
SRO = 177572 3944 
SR1 = = _ 177574 3944 
SR = 177576 394 
SR = 172516 3944 
STACK = 001100 3874 579 615 987 1569 1597 1624 1645 1667 1692 1828 1876 1899 
START 001762 "3080 ots se 628 630 2284 2361 
STKLMT= 1777746 3874 


STPNEX 022764 2048 2050 2067 2073 2082 21098 


: 


MAIN. MACY11 30A(105 
CROTAB.P11 16-NOV-8 
SWBPWF 17 36¢ 
Sik 11 
SWREG 176 
SwO 1 
swooO = 1 
SwOol = 
Ne = 
swo5 = 1 
SwOo4 = 
swoS = : 

= 
Su? = 
swog = 200 
— = 001000 

= 
Sw10 = 092000 
Swill = 000 
aule = 810005 
SWw15 = 020000 
SWw14 = 040000 
$w15 = 100000 
or] = 000004 
SW = 000010 
SWw4 = 000020 
SwW5 = 000040 
Ss = 000100 
Sw = 000200 
Sw8 = 000400 
Sw9 = 001000 
SYNCUP 022064 
TABM 012759 
TBITVE= 000014 
TEMP1 001732 
TEMP2 002674 
TICK 022060 
TIMA 001746 
TIMB 001750 
TKVEC = 000060 
TOCK 022062 
TPVEC = 000064 
TRAPVE= 000034 
TRAP4 026444 
TRIG 022006 
TRIN 001756 
TRTVEC= 000014 
TSTNPR 02665 


Pirie 
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CROSS REFERENCE TABLE <= USER SYMBOLS 


# Bis ope $36¢* 2567 2569 = 25708 
7a 


1495* 


5207 


1591* 


19674 
1390 


2616 


2015 


2189s 


1636* 


1397* 


2617 





2024 
2206 
1852* 1918*  1963* 1965* 1968 
1508 1513* 1582 1589* 1679 


1975* 


1684* 


1977* 


SEQ 0105 


19804 





-MAIN. MACY11 30A(1052) 
16-NOV-81 1 


CROTAB.P11 
TST 003152 
1318 9 
TST4 5246 
TSTS 7 
TST $3 
TST 00455 
™ 026434 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 1044 
TYPOS = 104403 
USEPAR 001760 
co 001624 
VEC2 00162 
AIT 022022 
WAITOS 022010 
WAIT1O 0217 
WAIT20 021774 
SAPT 001 
SASTAT= seeee% 
SATYC 030432 
SATY1 030406 
SATY3 030414 
SATY4 gases 
SAUTOB 0011 
SBASE Ont 48s 
$8D. 00112 
SBDDAT 001126 
SBELL pote 
$CDW1 1266 
$CDW2 001270 
SCHARC 030402 
SCKSWR 030756 
SCMTAG 001100 
$cM3 = 000000 
$cm4 = 000005 
SCNTLG 031503 
SCNTLU 031476 
Cc 001234 
SCRLF 001203 
032174 


i Pipes 
7:16 
778# 
atl 
ae 
194 
714 
‘ 3 $35)" 
940 470 
602 651 
1s 
rs 
1840 1851 
2340 boas 
if 
561 2564 
o76 1360 
1505 1566 
1741 1749 
1874 188? 
$e5e 2254 
§ 734 
a 
5 9 
a ee 
1472* 14978 
5304 598 
1115 1293 
981 1423 
77 19634 
1564 1619 
Hy 
2562 
25624 
25624 
$26! $26 r 
5624 56 
4004 02* 
4004 89 
$07 4004 
91 4004 
4004 2567 
4004 
4004 
$2018* 
5644 2573 
4004 579 
4004 
4004 
5644 
5644 
4004 
004 2561 


c 9 
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CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0106 
257 

65 BA 1267 +44 1358 1367 1373 1395 1306 1411 1417 
1°78 146 ps 1504 151 1530 1363 1587 159 1606 1620 
1 1683 16 2 1¢e3 16 1697 1735 1740 1748 175 1758 
1774 1781 1 8 1792 1 1804 1 08 1819 1824 133) 1835 
1854 1871 187 1884 1986 10% 1 1910 phar 1 $2 1927 
1940 1993 30? 499 16 17 191 204 oy SSe % 

$33 $gsé § 1 ¢ 5 4o3 68 $28 <05 1 

17 21 28 36 40 4 58 4 401 468 471 

565 2566 567 568 57 5734 
1368 1374 1396 1404 141 418 1425 1433 1457 1468 1488 
15 1594 1603 4 1¢¢ Hh 9 1649 1664 1673 1689 16 
1759 1766 1775 1787 1798 180 1825 1832 1841 1855 872 * 
1887 189 1911 1913 1326 1928 1994 2006 2121 2166 «= 2174 
2267 2293 2359 2564 256 2568 25734 

625*  2234* 

605* 739* 769* 788* 816* $238 $678 * 914*  925* 949* 
1004* 1026* 1045* 1070" 1285* 1353* 1378* 13898 1421* 1436*  1460* 
wie 1oece 1590* 1617* 1638*  1660* 1685* 1702* 1847« 

® 
1808 1592 1637 1853 1919 1964 1966 1969 19704 1976 


1640 1662 1687 1720 19654 


2564 2567 «2568 





. 9 
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SD0DWO 001272 4004 
$O0W1 1274 & 
$D0W10 131 a 
$D0W11 001 4004 
$ODW1 Bat 4004 
$DDW1 1324 4004 
SODW14 $01 4004 
$DDW15 1 4004 
ey | 001276 4004 
$D0WS 001 4004 
SDDW4 001502 4004 
SDDWS = 001 4004 
oe 001 4004 
SDDW ett 4004 
SD0W8 = 001312 4004 
SD0W9 001314 4004 
SDEVCT poste 4004 
SDEVM 001264 4004 
SDOAGN oe1020 19404 
SOTBL 052164 25664 
SENDAD 021640 397 602 19404 2567 
SENDCT 021 579 19404 
SENDMG 02165 19404 
SENULL 021654 19464 
SENV 001226 4004 602 2561 2562 2567 
SENVM oor ees 4004 579 2561 2562 
SEOP 021552 1262 1323 1344 1717 1719 19404 
SEOPCT 021600 579* 19404 
SERFLG 001103 4004  2567*  2569* 
001115 4004 579* 2569* 
R 032204 579 25674 2569 
SERRPC 001116 4004 567* 2568 2615 2616 2617 2618 2619 
SERRTB 001332 4004 568 
SERRTY 032534 2567 25684 
SERTTL 001112 4004  2567* 
SESCAP 001174 4004 579* 2567 2569* 
TABL 001226 4004 
SETEND 001352 399 4004 
SFATAL 001210 400# 2562+ 
SFFLG 030652 25624 
SFILLC 001156 4004 2561 
SFILLS 001155 4004 2561 
S$GDADR 001120 400# 
SGDDAT Oot 1¢8 390 4004 
$GET42 0216 19404 
$GT 031026 25644 2573 
SHIBTS 001 ice 
I 033550 744 
SHIOCT 030754 5634* 
SICNT 001104 4004  2569* 
ILLUP Oaasee 2570# 
SINTAG 001135 4004 564 
SITEMB 001114 4004 567* 2568 
F 001204 4004 2561 2564 2567 
SLFLG 030651 256248 
ONUM 033552 25744 


SEQ 0107 


9 
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CRDTAB.P11. 16-NOV-81 17:16 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0108 
SLPADR 001106 400" 579 25698 
SLPERR 00111 4008 79* “686% 694% 702% 2567 2569 
SMADR1 001240 4008 
SMADR 1344 4004 
SMADR 1250 4004 
SMADRS 001254 4004 
SMAIL 001 399 400# 579 602 2561 2567 2569 
SMAMS1 001 4004 
00124 4008 
SRAMSS 001246 4004 
SMAMS4 00125 400" 
SHELRY 050650 Hey 
SMFLG 03065 2 624% 
SMNEW 031521 5644 
SMSGAD 001222 4004 2562s 
SMSGLG 001224 4004 256 * 
SMSGTY 001206 400#  2562* 
031510 25644 
SMTYP1 001237 400" 
SMTYP2 001243 4004 
SMTYP3 001247 4008 | 
SMTYP4 001253 4004 
SMXCNT 033160 25694 
SNULL 001154 40G# 2561 
SNWTST= 000001 $628 16224 7114 «7334 «67738 = 819% )~—s«71H#—s«918H# = s«9S3H@ = «998 = 1030" =«107SH#=—s«411328 
SOCNT 031754 2565a8 
31756 2565a* 
SOVER 033144 25694 
SPASS 001214 400# 579% 647 1078 1243 1940% 2569 
SPASTM 001006 3998 
SPWRAD 033322 25708 
SPWRON 033162 579 =. 2570# 
SPWRMG 033316 25704 
SPWRUP 033234 25704 
SQUES 001202 400# 2561 2564 2567 
SRAND 033452 25744 
SRDCHR 031240 25 2573 
SRDDEC= teeeee U 2573 
SRDLIN 031360 35644 2573 | 
T 030654 25634 2573 
$RDSZ = 000010 35644 
021652 1261* 1322% 1343* 1716* 1718* 19408 
= eeenee 2573 
SSAVRE= teeeee U 5573 | 
SSAVR6 033332 2570#* 
Ht aie Hae 2359" 602 1940 2564 2567 2569 
$STUP = 177777 5774 
$SVLAD 033110 25694 
+ tl 100 E86 33ce 400 579 «662 677 711 733 773 819 871 918 953 998 
1030 1075 1132 1158 1188 1940 2567 2569 2570 
SSWREG 001230 400" 579 


SSWRMK= 000000 
STESTIN 001212 400# 2569 
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677* 
1188* 


7114 


2569* 


2252 


Ronen 2 oe 


711* 
1940* 


7334 


2261 


Nonny eo 
OW ONQAULES 


F 9 
SEQ 0109 


733* 773* 819 871* 918* 953* 998* 1030 
2569* 


7734 8194 8714 9184 9534 9984 10304 10754 


2264 2274* 2276* 2277% 


5604 5664 579 6928 §=6.66S3H@ = (928~—S——«é1357~—S—(s«1362 

1414 16174 1420 14c6# 1427 14318 1435 14568 
1507 1532 1565 1568  1587# 15934 1596 1605 

16414 1644 16484 1651 16634 1666 167 16834 
17584 17744 17978 18084 18354 1844 18518 18544 
Ste ee a 
sh00e 24014 yer $348, $ea¢ 25624 644 25664 


MACY11 ees 


Ww 
an 
So 


onNuV 


iN ONk 





1$-NOV-81 
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400 
1158 


707 
900 
1095 
2454 


733 
911 
1821 
2566 


733 


541 
1188 


17:26 PAGE 15 
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662 
1940 


Cte ee ee ee ee 
FSOIOONUIN —BDOwW 
SOWWEWS rornrnd 
WOOO —\MmoO 


773 


Wee ee oe 


677 
2561 


OofMmowmec ArorwsS 


819 






6 9 


753 
935 
1128 


871 
1069 
1901 


871 


711 
2562 


We ee es 
_ 

SORNSR VRE 

NRWOWNN &— Or 


733 
2563 


At ee ee 
MSOONVYIW MWCO & 
WOUMON LUO 
FU" WW NS Oo 


918 


773 
2564 


MR—CNAW MCAS 
WNYIUIAOCOWO VUwwr 
COOflunow LSNrwu 


NNR aS @ Oe 


953 


—- —$ — —------ —--5- 


819 
2565 


998 


2566 


rm 
cCoOwOw 
Woon 


ee ee ee) 

WGN Moo 

Soe oO 
WEN Ww 


1030 


918 
2567 


= 


FS es 


So 
oo 
MRR MQ eS Ae t o 


NINA eS he 
—_ 
ae 


— oO 


Ina 
mo 


1075 


1737 
2574 


1132 


2568 


SO WNO~nNS 
BOP FOXS 


SEQ 0110 


998 
2569 


1158 
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377 





- SETUP 

- SWRHI 

~SACTI 397 
- SAPTB 4004 
~ SAPTH 99 
-SAPTY 2562 
-SCMTA 400 
- SEOP 940 
- SERRO 567 
- SERRT 568 
- SPOWE 570 
- SRAND 574 
- SRDOC 563 
- SREAD 564 
-$SCOP 569 
- STRAP 573 
-STYPD 566 
-STYPE 561 
-STYPO 565 
-$40CA 395 


- ABS. 035432 000 


ERRORS DETECTED: 0 
CRDTAB, CRDTAB. LST/CRF= oe P11 
RUN-TI 122 66 


22 6 SECON 
RUN-TIME RATIO: 459/195= DS 3 
CORE USED: 26K (51 PAGES) 





